Sort dates using Schwartzian transform in Perl

sort_date.pl

#!/usr/bin/perl
use strict;
use warnings;
use Time::Piece;

my @events = ( '11/17/1999',  '12/6/1999', '12/23/1999',
               '1/23/2000',  '1/13/2000',  '2/25/2000',
               '1/5/2000',  '3/18/2000',  '4/10/2000',
               '3/12/2000', '12/31/1999');


my @sorted_events = map { $_ -> [0] }
                    sort {
                          # year
                          $a -> [1] -> [2] <=> $b -> [1] -> [2] ||
                          # month
                          $a -> [1] -> [0] <=> $b -> [1] -> [0] ||
                          # day
                          $a -> [1] -> [1] <=> $b -> [1] -> [1]
                          }
                    map { [ $_, [ split /\// ] ] }
                    @events;

# you can also use Time::Piece
my @sorted_events_again = map { $_ -> [1] }
                          sort { $a -> [0] <=> $b -> [0] } 
                          map { [ Time::Piece -> strptime($_, "%m/%d/%Y"), $_ ] } 
                          @events;