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