$i=1;

foreach $line(@file)
{
  chomp $line;  
  ($numb."[$i]",$text."[$i]")=split(/\|\|/,$line);#problem??

$i++;
}