my $alias_line_count = 0; # Number of aliases I have my @alias_label_array = (); my @alias_value_array = (); my @officer_label_array = (); my @officer_value_array = (); my $officer_count = 0; # Number of officers I have my @ap_label_array = (); my @ap_value_array = (); my $ap_line_count = 0; # Number of APs I have my $ap_person_count = -1; # Eh? I don't know... #### # Print the data for officer 'Joe' for my $i (0 .. $officer_count-1) { if ($officer_label_array[$i] eq 'Joe') { print "Joe: $officer_value_array[$i]\n"; } } #### for my $i (0 .. $#officer_label_array) { if ($officer_label_array[$i] eq 'Joe') { print "Joe: $officer_value_array[$i]\n"; } } #### for my $i (0 .. $#officer_label_value_array) { if ($officer_label_value_array[$i][0] eq 'Joe') { print "Joe: $officer_label_value_array[$i][1]\n"; } } #### for my $array_reference (@officer_label_value_array) { my ($name, $value) = @$array_reference; print "$name: $value\n" if $name eq 'Joe'; } #### my $name = 'Joe'; print "$name: $officer_hash{$name}\n" if exists $officer_hash{$name}; #### my %aliases = { # Name Title Joe => 'Prez', Bob => 'Veep' }; my %officers = { # Name Salary Prez => 100000, Veep => 85000 }; # Who's Joe, and how much money does he make? my $title = $aliases{Joe}; my $salary = $officers{$title}; print "Joe's title is $title, and he earns $salary yearly.\n"; # How many officers do we have, anyway? print "We have ", scalar(keys %officers), " officers.\n";