if (0 < scalar grep { $_ == 9 } (1..10)) {

##</code><code>##

if (0 < scalar grep(sub { $_ == 9 }, (1..10))) {

##</code><code>##

if (0 < scalar grep(1, (1..10))) {

##</code><code>##

print '1. ', (join q{,}, sort               qw(a z b y)), "\n";
print '2. ', (join q{,}, sort { $a cmp $b } qw(a z b y)), "\n";
print '3. ', (join q{,}, sort(::mycmp       qw(a z b y))), "\n";

sub mycmp
{
	return $a cmp $b;
}

##</code><code>##

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

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