sub indexArray(@) { 1 while $_[0] ne pop; $#_; }