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