Select Code to Download

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

open(IN,"input.txt") or die("Can't open input.txt");
while(<IN>) {
...
  print "$Employee_Rec->{Emp_aka}    \n";
}
close(IN);