my $lc = List::Compare->new( @hash{ sort keys %hash } );

##</code><code>##

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