Select Code to Download

sub my_sort_index {
    my ($c, $d) = @_;
...
    ++$return_value  if $d =~ /^index\./;
    return $return_value;
}

my @sorted = sort { my_index_sort($a,$b) || $b cmp $a } @list;

sub convert_name_to_L_F_M_Extras {
    # Lots of ugly code to split the name into bits, determine which b
+it goes where, and
...

# Now throw away the transformed names and keep only the list of sorte
+d names.
@sorted = map { $_->[1] } @sorted;