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