for my $key (sort keys %main::) {
  next unless *{$main::{$key}}{ARRAY};
  print "$key\n";
}