my @array = split (/\n/, $array);