perl -E 'our @array = (1,2,3); *1=\@array; say for @1;'
1
2
3