map{ push @list, @$_ }@array;
print "@list";