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

@a = qw(a A b B D d c C);

$subname = 'ascii';

@sorted = sort $subname @a;

print @sorted;

$subname = 'alpha';

@sorted = sort $subname @a;

print @sorted;