my $myfile = $ARGV[0];
open FILE, "<", $myfile || die "No open $!\n";
local $/;
my $a = <FILE>;

my @t = split(/^\n/m, $a);

##</code><code>##

$hash{$key} .= exists $hash{$key} ? ",$val" : $val;