# panics
print 'map2', (join q{,}, map(::myuc     qw(a z b y))), "\n";

sub myuc
{
	return uc($_[0]);
}