open my $in1, '<', \$File1;

##</code><code>##

open my $in1, '<', $file1 or die "Can't open '$file1': $!\n";

##</code><code>##

open my $out, '>', $fileOut or die "Can't create '$fileOut': $!\n";

##</code><code>##

    print $out $line1, ',', (split ',', $line2)[-1];