my %params = $q->Vars;
my @hash_array_keys=keys %params;
my @hash_array_values=values %params;

open FILEHANDLE, ">/tmp/hash.dat" or die "Can not open hash.dat";
$, = "\n";
for my $k (sort @hash_array_keys)
	{
		print FILEHANDLE $k, $params{$k};
	}
#print FILEHANDLE values %params;
close FILEHANDLE;