my @pdblines = ();

 while (<IN>) {
 for ( @pdblines) {