my @params = qw(foo too you);
my @values;
push @values,$q->param($_) for @params;
my $line = join ":",@values;
print FILE "$line\n";