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