for my $key( sort { $b <=> $a } keys %sizehash ) {
    # blah
}