my %data;
while (<INPUT>) {
    if (/^-- (\w+):(.*)/) {
        push @{$data{$1}}, split " ", $2;
    }
}