mysubroutine {block} @list;

##</code><code>##

map (sub { "1" x $_ }, (1..10));

##</code><code>##

perl -wle 'print prototype("CORE::map")'

##</code><code>##

Use of uninitialized value in print at -e line 1.