Select Code to Download

use strict;
use Data::Dumper;
...
        [join('.',@n), $d] } values %list;

print Dumper(\@sorted_date);

use strict;
use Data::Dumper;
...
  print "<tr><td>$_->[1]</td><td>HASH key: $_->[2]</td></tr>\n";
}
print "</table>\n" if $#sorted_date >= 0;

<table>
<tr><td>3.13.04</td><td>HASH key: C</td></tr>
...
<table>
<tr><td>3.13.02</td><td>HASH key: D</td></tr>
</table>