`C-style for loop`

Usually a bad move

     Subject: Re: How to compare two files and get the differences ?
     Message-Id: <7o5128$cp5$1@news1.kornet.net>

     for ($i=0;$i<$sizelines;$i++) {
        ($f1, $categorybackup, $f2, $f3, $f4, $f5, $f6, $f7) = 
           split ('\|', $lines[$i]);
         ...
     }

Better:

     for $line (@lines) {
        my ($categorybackup) = (split /\|/, $line)[1];
        ...
     }