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));
'
__output__
17