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

##</code><code>##

print "$_\n" for @array;