Select Code to Download

001: my $alias_line_count       = 0;
my @alias_label_array      = ();
my @alias_value_array      = ();
...
my @ap_value_array         = ();
my $ap_line_count          = 0;
my $ap_person_count        = -1;

my @officers;
my %aliases;

...
push @{$aliases{$_}}, $newHire for @{$newHire->{aliases}};
push @officers,  $newHire;
print "We now have ". (scalar @officers) . " officers at Fort Futile\n
+";