#!/usr/bin/perl

@LoH = ({'name'       => 'Doug',
         'department' => 'Internet Services',
         'salary'     => 100000},
        {'name'       => 'Tux',
         'department' => 'Internet Services',
         'salary'     => 'Herring'},
        {'name'       => 'Dumbo',
         'department' => 'Mangement',
         'salary'     => 'Peanuts'});


print "$LoH[1]->{'salary'}\n";
print "$LoH[2]{'department'}\n\n";

foreach my $employee_number (0 .. $#LoH)
{

  print "Employee $employee_number:\n";

  foreach my $field (sort(keys(%{$LoH[$employee_number]})))
  {

    print "  $field: $LoH[$employee_number]{$field}\n";

  }

  print "\n";

}