Select Code to Download

Type of arg 1 to main::map2 must be block or sub {} (not list) at C:\t
+est\test.pl line 17, near "qw[A B C D];"

#! perl -slw
use strict;
...

#! But this works fine??
map{ print $_; } qw[A B C D];