sub mymap (&@) { my ( $code, @list ) = @_; map &$code, @list }

sub get_cb { return sub { uc } }

print(( mymap  \&{ &get_cb }, qw( a b c ) ), "\n");
print(( map    &get_cb,       qw( a b c ) ), "\n");
print(( map    get_cb,        qw( a b c ) ), "\n");
print(( map    get_cb(),      qw( a b c ) ), "\n");