perl 回傳陣列 array

sub func_a {
   return "1,2,3";
}

sub func_b {
   return (1,2,3);
}

my ($x,$y,$z) = split/,/,func_a();
my ($n,$o,$p) = func_a();