Select Code to Download

my @val = split(" ",$val);
my $v = join (":", @val);

$val =~ s/\s+/:/g

my %hash;
while (<DATA>) {
...
foreach my $k (sort keys %hash) {
    print $k.join( ', ', @{$hash{$k}} )."\n";
}