sub grepper { (grep {$_->[0] eq 'a3333'} @stats)[0]->[1]++; }