Help for this page
our $references;
my @references; ... #.. inside sub test() .. # foreach my $object(@references){ ....}
#!/usr/bin/perl ... print "---Team: $t->{name} -----\n"; print " " . $_->name . "\n" for $t->GetUserList; }