my $x = Test->new();
my $dog = \$x;
push @pack, $dog;