for my $n ( 0 .. 10 ){ my $date = Date::Business->new; ... }