use strict;
use warnings;

my @SampleArray = ("one", "two", "three");

for my $ArrayIndex ( 0 .. $#SampleArray ) {
    printf(
        "%s is at location %d in the array\n",
        $SampleArray[$ArrayIndex],
        $ArrayIndex,
    );
}

##</code><code>##

use v5.12;
use strict;
use warnings;

my @SampleArray = ("one", "two", "three");

while (my ($ArrayIndex, $ArrayItem) = each @SampleArray) {
    printf(
        "%s is at location %d in the array\n",
        $ArrayItem,
        $ArrayIndex,
    );
}