example.pl

#!/usr/bin/env perl

use warnings;
use strict;

# some example values to test
our (%STUFF) = (   # just doin' a hash, like a boss.
    SOME_KEY       => 'some_value',
    SOME_OTHER_KEY => 'some_other_value',
);

while (my ($k, $v) = each(%STUFF)) {
    print "The value of $k is $v\n";
}