my @fields = qw(Foo Bar foo@bar.com);
my $line = join ";", @fields;
print "$line\n";     # Foo;Bar;foo@bar.com