Select Code to Download

for ($i=0; $i<=10; $i++) # old faithful!
for (0..10)
...
1 while 
while (1)

sub getArrayIndex {
    map{return --$_ if $_[0] eq $_[$_]}(1..@_-1) and -1
}