use Date::Manip;
use Data::Sorting qw( sort_array );

my @array = <DATA>;
sort_array( @array, sub { ParseDate( (shift) =~ /\t([^\t])$/ ) } );