Help for this page

Select Code to Download

Select or download this

my @sorted = map substr($_, 6),
             sort
...
                   "$ymd$_"
                 }
             @data;