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