Select Code to Download

sub custom_sort {
    my @a_parts = split /,/, $a;
...

# To invoke:
my @sorted = sort custom_sort @{ $outputRef };