The following speeds up the sort the others presented, and is probably faster overall for anything but trivial data:

my @sorted = map substr($_, 6),
             sort
             map { local $_ = $_;
                   s/^\S+\s*//;
                   my $ymd = join '',
                             reverse
                             split '/',
                             (split / /)[1];
                   "$ymd$_"
                 }
             @data;
[download]