UPDATE: here is the modified code which is also not working

Those be forbidden words :) you need to describe how its not working

O/p is like this

You should also put that in code tags, or better yet, put the output of  dd \%Employee; (from before undef) and/or  dd $tb; (from before print FH1 ), in code tags