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