foreach my $sym (keys %$package::){
  print "$syn\n";
}