Select Code to Download

while(my($key,$value)=each(%sqlASDOverall)) {
    print sqlExecute($value,$key)
}

sub sqlExecute {
    my @results;
...
    }
    return @results;
}