#!/usr/bin/perl -w use Data::Dumper; require dir_one::my_package q( %my_hash ); print "%s\n", Dumper(\%my_hash); require dir_two::my_package q( %my_hash ); print "%s\n", Dumper(\%my_hash);