package EmployeeList;
  . . .
sub format {
   my $self = shift;
   for my $anEmployee ( @{ $self->{EmployeeList} } ) {
      # Do something with the employee, such as:
      # print "current employee name is: ", $anEmployee->{name}, ".\n";
   }
}