rsimoes

#!/usr/bin/env perl

use strict;
use warnings;

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