# (1)

# Foo.pl - extract
# implicitly
%::crap = (turd => 'yellowy brown',
           crap => 'browny black');

# or explicitly
%main::crap = (turd => 'yellowy brown',
               crap => 'browny black');


# BooYah.pm - extract
require 'Foo.pl';

# implicitly
print $::crap{turd};

# or, explicitly
print $main::crap{turd};

# (2) - give Foo.pl a namespace

# Foo.pl - extract
package Foo;
%Foo::crap = (turd => 'yellowy brown',
              crap => 'browny black');

# BooYah.pm - extract
require 'Foo.pl';
print $Foo::crap{turd};