for my $idx ( 0..$#_ ) { # $#_ is index of last element,
                         # scalar @_ is number of elements
    print "$idx  $_[$idx]\n";
# or to start numbering at one
    print $idx+1 . " $_[$idx]\n"
}