#!/bin/perl -w
use strict;

$runset{FlowShortName}="foo";
$runset{abc}="test";
$runset{TEST}="I";
$runset{ABC}="am";
$runset{BAR}="a monk in training";
#some smidgen of code to delete non upper case variables

foreach my $key (keys %runset){
   print "$key $runset{$key}";
}