use strict;
use warnings;
use Date::Manip;

my @array = <DATA>;  # Slurp in the whole file, line by line.
@array = map { [split /\t/, $_] } @array;
@array = sort{ParseDate($a->[-1]) cmp ParseDate($b->[-1])} @array;
@array = map { join "\t", @{$_} } @array;

##</code><code>##

@array = map { join "\t", @{$_} } 
         sort{ParseDate($a->[-1]) cmp ParseDate($b->[-1])}         
         map { [split /\t/, $_] } @array;