my @values;
{
    push @values,$q->param($_) for qw(foo too you);
    #set print seperator to ":" just for this block
    local $"=":";
    print FILE "@values\n";
}