my @array1=(1,2,3);
my $array_ref=\@array1;
my @array2=@$array_ref;
push(@array2,4);