foreach my $key ( grep { /^[A-Z]+$/ } keys %runset ) {
    print $key, " ", $runset{$key}, "\n";
}


##</code><code>##

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