关于数组返回

#!/usr/bin/perl
use strict;
use warnings;

sub func_array
{
        my @temp = qw/a b c/;
        return @temp;
}

sub func_list
{
        return qw/a b c/;
}

my $s = scalar(func_array());
my $s2 = scalar(func_list());

warn $s;                         //3
warn $s2;                      //c

 

［记号］忘了为设么。。。