Assuming you want to delete all keys between 101 and 103 as in your example, this would work:

for (101..103) {
   delete $hash{$_};
}
[download]

...or, if you're feeling silly...

map { delete $hash{$_} if ($_ > 101 && $_ < 103)  } keys %hash;
[download]

Alan "Hot Pastrami" Bellows