data structure question

[Anonymous Monk]

In my programs I always end up with a zillion global variables. These are used at different subroutines and it would be very laborious to pass them around as parameters. Any suggestions on an all-inclusive data structure?

my $alias_line_count       = 0;
my @alias_label_array      = ();
my @alias_value_array      = ();
my @officer_label_array    = ();
my @officer_value_array    = ();
my $officer_count          = 0;
my @ap_label_array         = ();
my @ap_value_array         = ();
my $ap_line_count          = 0;
my $ap_person_count        = -1;