my @array;
my $arrayref=[]


my @copy=@array;
my $refcopy=$arrayref;