Help for this page
my $lc = List::Compare->new( @hash{ sort keys %hash } );
my $lc = List::Compare->new( @hash{ sort{ $a <=> $b} keys %hash } );