Select Code to Download

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

our %diamond = (
   'Koh-i-Noor'     => 186,   Cullinan         => 3106,
...
   'Blue Hope'      => 45.52, Sancy            => 55,
   'Taylor-Burton'  => 69.42, Hortensia        => 20,
);

require '/full/path/to/file1.pl';
our @angry_men;
...
print $diamond{Cullinan};

$some_var = $angry_men[7];