while ( defined(my $input1 = <PERSON>) ) {