use strict ;
use warnings ;

sub test { my @x = qw(test) ; return @x }

my $test = test() ;
my @test = test() ;

print ">>> $test\n" ;
print map "[$_]\n",@test ;
print $test == scalar(@test)? "Yepa!\n" : "Nope!\n" ;