for($i=0;$i<(scalar(@blocks));$i++)

##</code><code>##

for my $block (@blocks) {...}