print map ucfirst, "just another ", "perl hacker\n";
print map { ucfirst } "just another ", "perl hacker\n";
print map(ucfirst, "just another ", "perl hacker\n");
print map({ ucfirst } "just another ", "perl hacker\n");

##</code><code>##

print map(ucfirst, "just another ", "perl "), "hacker\n";
print map({ ucfirst } "just another ", "perl "), "hacker\n";

##</code><code>##

sub mymap (&@) { map { &{$_[0]}() } @_[1..@_-1]; } 

##</code><code>##

print mymap { ucfirst } "just another ", "perl hacker\n";
print mymap { ucfirst }, "just another ", "perl hacker\n";

##</code><code>##

print mymap sub { ucfirst }, "just another ", "perl hacker\n";
print mymap(sub { ucfirst }, "just another ", "perl hacker\n");
sub ucf { ucfirst }; print mymap \&ucf, "just another ", "perl hacker\n";
sub ucf { ucfirst }; print mymap(\&ucf, "just another ", "perl hacker\n");
$ucf = sub { ucfirst }; print mymap \&$ucf, "just another ", "perl hacker\n";
$ucf = sub { ucfirst }; print mymap(\&$ucf, "just another ", "perl hacker\n");