Help for this page
my @a = qw( a b c ); for ( my $i=0; $i<3; $i++ ){ say $a[$i]; }
for my $elem ( @a ){ say $elem; }
while ( my ( $iter, $elem ) = each @a ){ say "Iteration $iter contains $elem"; }
www.com | www.net | www.org
No recent polls found