$Employee_Rec = [ {Emp_No=>1,
                   Emp_Lname=>2,
                   Emp_Fname=>3,
                   Emp_SSN=>4,
                   Emp_DOB=>5,
                   Emp_aka=>6}
                ];
##</code><code>##

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