use Storable qw(dclone);
my $y = dclone(\@x);