sub test{
return \[1,2,3];
}
$" = ',';
print "@${test()}\n";

use Data::Dumper;
print Dumper(test());