Perl control structures