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