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

##</code><code>##

open(IN,"input.txt") or die("Can't open input.txt");
while(<IN>) {
  chomp;

  magic code here ... ???

  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";
}
close(IN);