Help for this page
$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);