knoppix@Microknoppix:~$ perl -Mstrict -Mwarnings -E '
> foreach ( my $count = 0; $count < 5; $count ++ )
> {
>     say $count;
> }
> 
> my @arr = qw{ one two three };
> for my $elem ( @arr )
> {
>     say $elem;
> }
> 
> foreach my $idx ( 0 .. $#arr )
> {
>     say $arr[ $idx ];
> }'
0
1
2
3
4
one
two
three
one
two
three
knoppix@Microknoppix:~$