for my $k (do { no strict 'refs'; keys %{'Other::'}}) {
    say $k;
}