my $r = [1,2,3];
$r->@*;