Select Code to Download

open my $file1In, '<', $file1 or die "Failed to open $file1: $!";

use strict;
use warnings;
...
    print join (',', $key, @{$concat{$key}}), "\n";
}
close $file2In;

Bbbb,3333,4444,23,45