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