Select Code to Download

Select or download this

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");

Select or download this

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

Select or download this

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

Select or download this

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

Select or download this

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");
$ucf = sub { ucfirst }; print mymap \&$ucf, "just another ", "perl hac
+ker\n";
$ucf = sub { ucfirst }; print mymap(\&$ucf, "just another ", "perl hac
+ker\n");