% my $n = 0; % foreach my $class (@classes) { % my $pre = "feepartusagenum$n"; % my $x = $part_fee_usage{$class->classnum} || FS::part_fee_usage->new({});