use Memoize qw(memoize);
memoize qw(number_for_class);
sub number_for_class { state $i; return ++$i };