Select Code to Download

open( my $fh, $infile ) or die "Cannot open '$infile' for reading: $!\
+n";
my %data;
...
    print $fh join( ',', $k, @{$data{$k}} ), $/;
}
close( $fh );