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;