for(my $idx = 0; $idx <= $#paths; ++$idx){ ... }