# this is file config.pl

use strict;
use warnings;

require 'global.pl';

read_GLOBAL();
print_GLOBAL();  # for example

sub read_GLOBAL {
    $GlobalStuff::GLOBAL{new} = 'a string';
}

sub print_GLOBAL {
    while ( my ($k, $val) = each %GlobalStuff::GLOBAL ) {
        print "$k => $val\n";
    }
}