my ($s1, $s2, $s3, $pname, $index) = split(/,/, $line);