my @array;
my $arrayref=[]