Do you mean something like this?

for my $element ( @array ) {
    print $element . "\n";
}
[download]