Search Results

a) put the splitted stuff in another temporary array, e.g. @rowarr
b) my $noofelements=@rowarr;

Try to replace this:
($a,$b,$c)=split(/\|/,$element);
print "$a\t$b\t\t$c\t\t\n";
print $_;...