delete $runset{$_} for ( grep { !/^[A-Z]+$/ } keys %runset );