in reply to counter issues

for (my $i = 0; $i < @array; $i++)

[download]
this will run from 0 to your last used index. Resulting in: 
$array[$i + 1]

[download]
accessing an undef-ined value.

In Section Seekers of Perl Wisdom