my @objects;
foreach my $line (@file) {
	chomp($line);
	my ($creg, $cname, $attribs) = split(',', $line);
	my $object = Blah->new($creg, $cname, $attribs);
	push(@objects, $object);
}