my @mango = ('one', 'two', 'three', 'penguin');

my $result = @mango;
print "Result is $result\n"; # prints 4

$result = join ' ', @mango;
print "Result is $result\n"; # prints "one two three penguin"