Instead of a foreach loop, try out a for loop so we can use index numbers on the @data array

You might not be aware that for and foreach are synonyms for each other and can be used interchangeably. You can also use a Perl-style for loop to access indexes into an array.

knoppix@Microknoppix:~$ perl -Mstrict -Mwarnings -E '
> foreach ( my $count = 0; $count < 5; $count ++ )
> {
>     say $count;
> }
> 
> my @arr = qw{ one two three };
> for my $elem ( @arr )
> {
>     say $elem;
> }
> 
> foreach my $idx ( 0 .. $#arr )
> {
>     say $arr[ $idx ];
> }'
0
1
2
3
4
one
two
three
one
two
three
knoppix@Microknoppix:~$
[download]

I hope this is helpful.

Update: Reworded first sentence slightly as it might have come over as a bit rude, which was not my intention.