my @y = 1..10; alias my @x = @y; push @y, 11; print map "$_\n", @x;