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;

##</code><code>##

0479
changetype: modify
replace: manager
4410

0479
changetype: modify
replace: manager
8050

0479
changetype: modify
replace: manager
0650

0479
changetype: modify
replace: manager
7030

0479
changetype: modify
replace: manager
9857

0479
changetype: modify
replace: manager
4380