foreach my $x (@array) {
    print "$x\n";
}