Select Code to Download

sub ascii {$a cmp $b}
sub alpha {lc($a) cmp lc($b)}

...
@sorted = sort $subname @a;

print @sorted;