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