C:\test>perl -Mstrict -wE"sub map{ 1 }"