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