my $i = 0;

foreach my $scalar (@array) {
    print $scalar, " is at position ", $i++, "\n";
}
[download]

--
John.