`C-Style for Loops`

     for ($i=0;$i<@{$chain[1]};$i++){
        ...
     }

As usual, a bad move

     for my $i (0 .. $#{$chain[1]}) { 
        ...
     }