my @array2 =split "\n", @array;
print $array2[1];