Select Code to Download

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

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

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

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";
...
{
    return $a cmp $b;
}

# panics
print 'map2', (join q{,}, map(::myuc     qw(a z b y))), "\n";
...
{
    return uc($_[0]);
}