my @array2 = map {[split "\n"]} @array;
print "@{$array2->[1]}";