open (FILE, "<filetoedit");
open (NEED, "<insert");
open (OUT, ">dine");

@array = <NEED>;
$end = scalar @array;

$count = 0;

while (<FILE>) {

for ($count = 0; $count < $end; $count++) {
###then some how replace x's with the new values