use strict;

my @array = ('foo', 'bar', 'baz');
my $temp;

$temp = @array;
print "$temp\n";
$temp = ('foo', 'bar', 'baz');
print "$temp\n";
($temp) = @array;
print "$temp\n";
($temp) = @array[0..2];
print "$temp\n";
$temp = @array[0..2];
print "$temp\n";

##</code><code>##

3
baz
foo
foo
baz

##</code><code>##

sub func1
{
    return('foo', 'bar' 'baz');
}

sub func2
{
    my @array = ('foo', 'bar', 'baz');
    return @array;
}