Select Code to Download

use strict;

...
}
# why can't I say something like mcc()[0] ???
print join ',',sort { &{(mcc())[0]}($a,$b) } @list;