my @linx = split(/,/,$flnx);