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

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

$some_var = $angry_men[7];