my @input = split(/,/,$_);
my $file_out= pop @input;
...
foreach ...
...
  $_=~ s/<<<Variable_(\d+)>>>/$input[$1]/ge;

##</code><code>##

$_=~ s/<<<Variable_(\d+)>>>/if ($1>=@input) {''} else {$input[$1]}/ge;