my @ordered_keys = sort {  $hash{$a} cmp $hash{$b}  # by value, then
                        || $a cmp $b                # by key
                        }
                   keys %hash;

foreach my $key (@ordered_keys) {
   print("$key: $hash{$key}\n");
}
[download]