Use of uninitialized value $lname1 in concatenation (.) or string at 1085723.pl line 48.
readline() on closed filehandle FH at 1085723.pl line 49.