Functional definition of map in Perl

mymap.pl

#!/usr/bin/env perl

use strict;
use warnings;

sub myMap(&@) {
	!wantarray && @_ - 1 || @_ > 1 && (
		do {
			local $_ = $_[1];
			$_[0]->();
		}, &myMap( $_[0], @_[2..$#_] )
	);
}

print myMap { "$_\n" } 1..4;
print scalar( myMap { "$_\n" } 1..4 ), "\n";