my @a = qw( a b c );

for ( my $i=0; $i<3; $i++ ){
    say $a[$i];
}