my ( %hash1, %hash2 );
$hash1{"value$_"} = $_ for ( 1 .. 11 );
$hash2{"value$_"} = $_ for ( 5 .. 11 );
$hash2{"value$_"} = $_ for ( 1 .. 4 );

sub flatten { return "@_" }

if ( flatten(%hash1) eq flatten(%hash2) ) {
        print "equal\n". flatten( %hash1 ) . "\n" . flatten(%hash2)
} else {
        print "not\n" . flatten( %hash1 ) . "\n" . flatten(%hash2);
}


not
value10 10 value11 11 value1 1 value2 2 value3 3 value4 4 value5 5 value6 6 value7 7 value8 8 value9 9
value10 10 value1 1 value11 11 value2 2 value3 3 value4 4 value5 5 value6 6 value7 7 value8 8 value9 9
========== [C:\users\jake\code\komodo\test3.pl] run finished. ==========