print "number of cols= $#{s1[$i]}\n";
if ($j=0;$j<$#{s1[$i]};$j++)