Select Code to Download

my($key,$value1,$value2,$value3) = $line =~ /(\w+),(\d+.\d+),(.\d+\s+\
+d+.\d+.)/g;

use strict;
use warnings;
...
close $outfile_1;

exit 0;