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