while (<PERSON>) {
        chomp;
        my $input1 = $_;
                while (<MGR>) {
                chomp;
                my $input2 = $_;
                        print OUT $input1;
                        print OUT "changetype: modify";
                        print OUT "replace: manager";
                        print OUT $input2, "\n";
                        }
}

exit;