my @list = map {my $first = $_; map {"$first|$_"} keys %{$myhash{$first}}} keys %myhash;
sub XFORM {
    # Extract the sort key from $_[0] and return it.
    # This will often be written in-line
    # rather than as a real subroutine.
}
my @sorted= @list[
    map { unpack "N", substr($_,-4) }
    sort
    map { XFORM($list[$_]) . pack "N", $_ }
    0..$#list
];
foreach my $key (@sorted) {
  my ($first, $second) = split /\|/, $key;
  print "$first: $second: $myhash{$first}{$second}{'one'}\n";
}