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";