I suppose that you're asking for a snipplet to iterate over all elements in an array. Thats certainly possible in (at least) two common variations:

for(my $i=0; $i < scalar(@array); $i++) {
    print $array[$i], "\n";
}
[download]

...or just omitting the index and using values straight from the array:

for( @array ) {
    print $_, "\n";
}
[download]