Select Code to Download

use strict;
use Data::Dumper;
...
        [$_, $d] } @date;

print Dumper(\@sorted_date);

$VAR1 = [
          '3.13.04',
          '1.13.04',
          '1.12.04'
        ];