use v6; my @x; fill_x(\@x); say @x.perl; sub fill_x($x_) { for ^3 {.say; @$x_.push($_)} }