my $to_delete = keys(%hash) - $num+1;
while ($to_delete) {
   --$to_delete if defined delete $hash{++$num};
}