What you have is really a reference/dereferencing problem, more than a sort problem. The sorts are simple enough, it's the ref stuff that's tricky.

I believe this will do what you want:

  for my $e1 ( sort { $b <=> $a } keys %$sort_line_contents )
  {
    for my $e2 ( sort keys %{ $sort_line_contents->{$e1} } )
    {
       print $sort_line_contents->{$e1}->{$e2}, "\n";
    }
  }
[download]

jdporter
The 6th Rule of Perl Club is -- There is no Rule #6.