if ($dist[$b] >= 0) {
        while ($dist[$b] >= 0) {
            ...
        }

##</code><code>##

for my $i (0 .. $#blocks) {

##</code><code>##

for (@blocks) {