Select Code to Download

foreach $thing (keys(%INPUT)) {
        if(ref($INPUT{$thing}) eq "ARRAY") { $INPUT{$thing} = join('^'
+, $$INPUT{$thing}); }
#       if($#INPUT{$thing}) { $INPUT{$thing} = join('^', $$INPUT{$thin
+g}); }
}

foreach $thing ( keys %INPUT ) 
{
...

# You can also write the above like this:
$INPUT{$_} = join '^', @{$INPUT{$_}} for grep {"ARRAY" eq ref $INPUT{$
+_}} keys %INPUT