Select Code to Download

$Employee_Rec = [ {Emp_No=>1,
                   Emp_Lname=>2,
                   Emp_Fname=>3,
...
                   Emp_DOB=>5,
                   Emp_aka=>6}
                ];

  my @data = split(',',$_);
  $Employee_Rec->{Emp_No}    = $data[0];
  $Employee_Rec->{Emp_Lname} = $data[1];
  ...