Formatting output after search and replace

I have 2 files one has the input and the other has data that will
replace specific string in file 1

eg
----

File 1
---------
Text| to be replaced
Text| to be replaced
Text| to be replaced
Text| to be replaced
Text| to be replaced

File 2
---------
replaced1
replaced2
replaced3

Output
----------
Text|replaced
Text|replaced
Text|replaced
Text|replaced
Text|replaced

I have a pgm that works but the output looks like

text|replaced1

text|replaced2

text|replaced3
text|replaced1

text|replaced2

Here is the code
--------------------------

#!/usr/bin/perl
use warnings;
use strict;

my @[EMAIL PROTECTED]
 @[EMAIL PROTECTED]
 FHR,'<',"repl.txt";
open OUT,'>>',"output.txt";
open IN,'<',"input.txt";
@[EMAIL PROTECTED]
>;
@[EMAIL PROTECTED]
>;

for my $i(0..$#array)
{
 $array[$i]=~s/to be replaced/$replacearray[0]/gi;
 push @[EMAIL PROTECTED]
 shift @[EMAIL PROTECTED]
 @[EMAIL PROTECTED]
(/[^\$]/,@[EMAIL PROTECTED]
);
print OUT @[EMAIL PROTECTED]
 anyone point out to me what i am doing wrong??Thanks