for ( my $i = 0; $i < 10; $i++ ) { # do stuff } #### $ perl -e 'print "10 apples"+"20 apples"' 30