foreach my $key (sort { $HoH{0}{$a} <=> $HoH{0}{$b} } keys %{$HoH{0}} ) {
    my $value = $HoH{0}{$key};
    print "$value -> $key\n";
}