for(101..103) {
  my $key = sprintf("%03d", $_); # sprintf adds leading 0's if needed
  delete $hash{$key};
}