@a,@b,@c,@d,@e,@f,@g
if(@a){my $test=join(',',@a)}
else{ @a is empty I don't put it in $test}
if (@a and @b and @c){my $test=join(',',@a).'and'.join(',',@b).'and'.join(',',@c)}