Does your format example say Jan 9 or Sep 1? Whichever it is, transform to iso standard format (YYYY-MM-DD) and dictionary sort,

sub to_iso {
    join '-', reverse split '-', shift;
    # otherwise,
    # join '-', (split '-', shift)[2,0,1];
}

sub from_iso {
    join '-', reverse split '-', shift;
    # otherwise,
    # join '-', (split '-', shift)[1,2,0];
}
# @data is all your records as an AoA
my @sorted = map { $_->[7] = from_iso($_->[7])}
             sort {$a->[7] cmp $b->[7]}
             map { $_->[7] = to_iso($_->[7])} @data;
[download]

If you're sure that the last field always contains the date, and you want to sort by date, you can probably do something like this:

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;
[download]

Let me explain that....
The first line slurps in your whole file into @array.

The second line turns each element of @array into an anonymous array where each element is one field from a line of your file. The last field is the date.

The third line takes advantage of Date::Manip's ability to turn just about any string into a date that can be compared with cmp. That line also uses a sort routine where you've defined the comparison mechanism to compare the last element of the anonymous array contained in each line of @array.

The fourth (last) line joins up the elements of the anonymous array contained in each line of @array, so that each line now contains its original tab delimited version.

If you want to express that in fewer lines:

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

The above is untested, so you may have to tinker a little to get it to your liking. You may even prefer to use a different module (a standard library one, for example). But the logic demonstrated ought to be a pretty good starting point.

Good luck. I hope this helps!

Or use Data::Sorting to gloss over the details of the transform:

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

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