RosettaCodeData/Task/Multiple-distinct-objects/Perl/multiple-distinct-objects-2.pl

map { Foo->new } 1 .. $n;