Select Code to Download

use List::Util qw( reduce );
sub symref {
...
        $a && exists $a->{ "${b}::" } ? $a->{ "${b}::" } : ()
    } \%main::, split /::/;
}