#### Main.pm

package main;

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

print $tn{Master}->name # Master