Select Code to Download

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

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