my $ref = [1,2,3];
print @$ref . '';