Select Code to Download

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

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