my @array = ( 1, 2, 3 );

for my $elem ( @array ){
    say $elem;
}