my %names;
{
 my ($label, @names) = split /:/;
 @{$names{$label}}{qw(first second third fourth)} = @names;
}