Select Code to Download

use strict;

...

# why can't I say something like mcc()[0] ???
print sort {$f[0]} @list;