use Win32::OLE qw(in);

# ...

my @reports = in $access->{Reports};
printf("Found %d reports\n",scalar(@reports));