Select Code to Download

   my %Employee_Rec;
   @Employee_Rec{qw(
...
   print "$Employee_Rec{Emp_SSN}    \n";
   print "$Employee_Rec{Emp_DOB}    \n";
   print "$Employee_Rec{Emp_aka}    \n";

   my ( $Emp_No, $Emp_Lname, $Emp_Fname, $Emp_SSN, $Emp_DOB, $Emp_aka 
+) = $csv->fields();

...
   print "$Emp_SSN    \n";
   print "$Emp_DOB    \n";
   print "$Emp_aka    \n";