001: 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;
[download]

Whenever you have arrays that you're trying to keep in synch like that? Try an array of hashes instead.

my @officers;
my %aliases;

my $newHire = {value=>0, 
               label=>'Spike Roberts', 
               aliases=>['Bayonet Bob', 'Hey You']
              };
push @{$aliases{$_}}, $newHire for @{$newHire->{aliases}};
push @officers,  $newHire;
print "We now have ". (scalar @officers) . " officers at Fort Futile\n
+";
[download]