Select Code to Download

for my $k (sort @hash_array_keys)
{
    print FILEHANDLE $k, $params{$k};
}

key1value1
key2value2
key3value3

for my $k (sort @hash_array_keys) 
{
    print FILEHANDLE "$k|$params{$k}";
}

my %params = $q->Var;
for my $k (sort keys %params)
{
    print FILEHANDLE "$k|$params{$k}";
}