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

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