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";
    }
  }