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