#!/usr/bin/perl
use strict;
use warnings;

my   $EmployeeDataFilename = 'emp.dat';
my   %EmployeeInfo = ();

{
     if (!open EMPFIL, '<', $EmployeeDataFilename)
     {
          print "Cannot open input file \"$EmployeeDataFilename\"\n";
     }
     else
     {
          # File sucessfully opened.  Read all employee data and store in the hash
          while (my $empbuf = <EMPFIL>)
          {
               chomp $empbuf;

               my ($employeeID, $lastName, $firstName, $age, $garbage) = split /\t/, $empbuf, 4;
               my $empkey = uc $employeeID;
               $EmployeeInfo{$empkey}{'LASTNAME'} = $lastName;
               $EmployeeInfo{$empkey}{'FIRSTNAME'}     = $firstName;
               $EmployeeInfo{$empkey}{'AGE'}      = $age;

               print "\n";
               print "Employee ID:  $employeeID\n";
               print "    Name:  $firstName $lastName\n";
               print "     Age:  $age\n";
          }
          close EMPFIL;
     }
}


__END__