Select Code to Download

for my $m (sort nameFirst ('fred', 'alf', 'tom', 'bert', 'name', 'pete
+')) {
    print "$m\n";
...
        0;
    }
}

name
fred
...
tom
bert
pete

sub nameBlahAref {
    naeval($a) <=> naeval($b);
...
    $_[0] eq 'aref' and return 3;
    return 2;
}