# file1.pl
our @angry_men = qw(
   Balsam Fiedler Cobb Marshall
   Klugman Binns Warden Fonda
   Sweeney Begley Voskovec Webber
);

##</code><code>##

our %diamond = (
   'Koh-i-Noor'     => 186,   Cullinan         => 3106,
   Excelsior        => 995.2, 'Star of Africa' => 520.20,
   'Great Mogul'    => 793,   Orloff           => 300,
   "Idol's Eye"     => 70.2,  Regent           => 410,
   'Blue Hope'      => 45.52, Sancy            => 55,
   'Taylor-Burton'  => 69.42, Hortensia        => 20,
);

##</code><code>##

require '/full/path/to/file1.pl';
our @angry_men;
our %diamond;

# then later ...
print $diamond{Cullinan};

$some_var = $angry_men[7];