perl -e'for(0..$#a){print "$_\n"}'