my @array_1 = sort keys( %hash_1);
my $key_string_1 = join('', @array_1);
my @array_2 = sort keys( %hash_2);
my $key_string_2 = join('', @array_2);
if ($key_string_1 eq $key_string_2) {
...