4.10. join

Example 4-10. examples/arrays/join.p6

#!/usr/bin/perl6

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