Index of Items in Array using foreach loop

[default_user]

In the following example I create an additional variable to keep track where I am in the array.

my @SampleArray = ("one","two","three" );
my $Arrayindex = 0;
foreach my $ArrayItem ( @SampleArray ){
    print $ArrayItem , ' is at location ' , $Arrayindex , ' in the arr
+ay' , "\n";
    $Arrayindex++;
}

The question, is there a more efficient way to do this? I don't like having to use the $Arrayindex++; method to achieve this.