Help for this page

Select Code to Download


  1. or download this
    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;
    
  2. or download this
    my @officers;
    my %aliases;
    
    ...
    push @{$aliases{$_}}, $newHire for @{$newHire->{aliases}};
    push @officers,  $newHire;
    print "We now have ". (scalar @officers) . " officers at Fort Futile\n
    +";