my @ARRAY = (...);
my @result = map { do something with $_ and $ARRAY[$_] } 0..$#ARRAY;