foreach my $key (
               map { $_->[0] }
               sort { $a->[1] <=> $b->[1] }
               map { [$_, $list{$_}] }
               keys %list ) {
...