#### Main.pm

package main;

*tn = \%Track::by_name;
*ti = \%Track::by_index;
*bn = \%Bus::by_name;

print $tn{Master}->name # Master

##</code><code>##

#### ChainSetup.pm

package main;
our (%tn, %ti, %bn);

package ChainSetup;
my $master_fader = $tn{Master};

##</code><code>##

#### Globals.pm

package Globals;
use Exporter;
our @ISA = 'Exporter';
our @EXPORT_OK = qw( %tn %ti %bn);

#### Main.pm

use Globals qw(%tn %ti %bn);
*tn = \%Track::by_name;
*ti = \%Track::by_index;
*bn = \%Bus::by_name;


#### ChainSetup.pm

package ChainSetup;
use Globals qw(%tn %ti %bn);
print $tn{Master}->name; # can't do method 'name' on undef

##</code><code>##

#### Globals.pm

package Globals;
use Exporter;
our @ISA = 'Exporter';
our @EXPORT_OK = qw( %tn %ti %bn);
my $pkg = caller();
my $code = '*' . $pkg . '::tn = \%Track::by_name';
eval $code;
die "error: $@ in eval of code: $code" if $@;