my @obj3s;
while (CONDITION) {
   push @obj3s, Object3->new();
}
my $obj2 = Object2->new(-children=>\@obj3s); # edited ... had the dreaded "=" without the ">"

##</code><code>##

sub children {
	my $self = shift;
	@_ ? $self->{_children} = shift :
	$self->{_children};
}

##</code><code>##

perl -e 'print "How sweet does a rose smell? "; chomp $n = <STDIN>; $rose = "smells sweet to degree $n"; *other_name = *rose; print "$other_name\n"'