sub indexArray
{
 1 while $_[0] ne pop;
 @_-1;
}