Help for this page
sub mymap (&@) { my ( $code, @list ) = @_; map &$code, @list } ... reset_cbs(); print(( map &{ get_cb() }, qw( a b c d ) ), "|"); print(( map &{ get_cb() }, qw( a b c d ) ), "\n");
abcd|ABCD aBcD|aBcD