my ($k, $g, $a, $v, $f, $c) = split /,/, $line; $href->{$v} = [ sort uniq $a, @{$href->{$v}} ];