Select Code to Download

my %hash = ( name  => 'Ovid',
             color => [ 'red', 'blue' ],
             COBOL => 'sucks' );

while (($key, $value) = each %data) {
...
        $query_string .= "$key=$array_value&";
    }
}