my $pdbline = <IN>;