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