for my $key(sort keys %hash) {
    print FH1_sorting "$key -> $hash{$key}";
}