Perl: map print

#! perl -w
$/ = "/n";

my @array = qw/a b c d e f/;
map {print} @array; #eqivalent to "print foreach @array" "print @array"

foreach (@array) { print;}

print foreach @array;

print @array;