Select Code to Download

@data = map  { $_->[0] }
        sort {   $a->[3] <=> $b->[3]  # YY
...
               ||$a->[2] <=> $b->[2]} # DD
        map  { [ m!^\s*(\D*(\d+)/(\d+)/(\d+)(?: [\d.]+)*)\s*$! ] }
        @idata;  #     0    1MM   2DD   3YY

@data = sort { $a->[1] cmp $b->[1] }      # Sort by YYYY/MM/DD
...
               # 2 digit dates is madness
               \@p} # return the fixed array
        @idata;

@data = map  {substr($_,3)}
        sort #lexicographical representation of the date
        map  { m!^\s*(\D*(\d+)/(\d+)/(\d+)(?: [\d.]+)*)\s*$!
               && pack ("CCCA*",$4,$2,$3,$1)}
        @idata;