Select Code to Download

my $decimal   = '.';    # decimal point indicator for "natural_sort"
my $separator = ',';    # thousands separator for "natural_sort"
...
    @_[ map { (split)[-1] } sort @x ];
}

#/usr/bin/perl
use warnings;
...
z8.doc
z9.doc