use Data::Alias;
alias @x = @y;
$x[1] = 2;        # should make $y[1] == 2