for ( reverse(0..$#rolling) ) {
   next unless defined $_-@rolling;
   $count{join('',@rolling[$_-@rolling,-1])}++;
}