my $i = -1;
foreach my $element (@array) { $i++; print "$element $i"; }