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

##</code><code>##

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

##</code><code>##

my %hash;
while (<DATA>) {
    s/\s+$//;   # remove all trailing whitespace (not just newline)
    s/(\S+\s+\S+\s+)//;  # remove (and capture) first two fields
    my $key = $1;
    s/\s+/:/g;  # join remaining fields with ":"
    push @{$hash{$key}}, $_;
}

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