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

##</code><code>##

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