my @references;

# -- inside new()
   push @references, $objref;

#
#.. inside sub test() ..
#
    foreach my $object(@references){ ....}