Select Code to Download

foreach my $key1 (sort keys( %hash ) )
{
    foreach my $key2 (sort keys( %{$hash{$key1}} ) )
...
        }
    }
}

@SortedArrayOfHashes = sort 
            { 
...
                    $a->{'key3'} cmp $b->{'key3'} #if these are equal,
+ then we give up; they're the same.
            }
            @ArrayOfHashes;