Select Code to Download

sub parse_csv {

...
    }
    return @new;      # list of values that were comma-separated
}

#!c:/usr/bin/perl

...
    $hash_value_to_sort{$b} <=> $hash_value_to_sort{$a};

}