$ perl -le ' my @arr = (1,1,1,2,2,2,2,2,3,3,3,4,4,4,4,4,4,5,5,6); print ($#arr - index((reverse(@arr)), 4)); print "@arr[16, 17]"; ' 16 4 5