for my $i ( 1 .. @array )