# this is file global.pl

use strict;
use warnings;

package GlobalStuff;

%GlobalStuff::GLOBAL = (
    dir1 = "/path/to/directory",
    dir2 = "/path/to/another",
);

# or, alternatively (same thing)
our %GLOBAL = (
    dir1 = "/path/to/directory",
    dir2 = "/path/to/another",
);