foreach my $k ( keys %master ) {
 		while ( my $line=<$foundfile> ) {