for (keys %runset) {
  unless($_ eq uc($_)) { 
    delete $runset{$_};
  } 
}