my %Employee_Rec;
   @Employee_Rec{qw(
      Emp_No
      Emp_Lname
      Emp_Fname
      Emp_SSN
      Emp_DOB
      Emp_aka
   )} = $csv->fields();

   print "$Employee_Rec{Emp_No}     \n";
   print "$Employee_Rec{Emp_Lname}  \n";
   print "$Employee_Rec{Emp_Fname}  \n";
   print "$Employee_Rec{Emp_SSN}    \n";
   print "$Employee_Rec{Emp_DOB}    \n";
   print "$Employee_Rec{Emp_aka}    \n";