sub my_map (&@){
	my $code_ref = shift;
	my @d ;
	push @d, $code_ref->($_) for @_;
	return @d;
}

##</code><code>##

sub my_map (&@){
	my $code_ref = shift;
	my @d = @_;
	$_ = $code_ref->($_) for @d;
	return @d;
}