#!/usr/bin/perl

%HoH = ('555-55-5555' => {'name'       => 'Doug',
                          'department' => 'Internet Services',
                          'salary'     => 100000},
        '666-66-6666' => {'name'       => 'Tux',
                          'department' => 'Internet Services',
                          'salary'     => 'Herring'},
        '777-77-7777' => {'name'       => 'Dumbo',
                          'department' => 'Mangement',
                          'salary'     => 'Peanuts'});


print "$HoH{'777-77-7777'}->{'salary'}\n";
print "$HoH{'555-55-5555'}{'name'}\n\n";

foreach my $ssn (sort(keys(%HoH)))
{

  print "Employee $ssn:\n";

  foreach my $field (sort(keys(%{$HoH{$ssn}})))
  {

    print "  $field: $HoH{$ssn}{$field}\n";

  }

  print "\n";

}