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