sub firstIdx { 
    $_[ $_ ] eq $_[ 0 ] and return --$_ for 1 .. @_; 
    return; 
}