sub push_record {
    my ($record, $data) = @_;
    foreach my $item (split /\s*;\s*/, $data // '') {
	my ($key, $value) = split /\s*=\s*/, $item, 2;
	
	push @{$record->{$key}}, $value;
	@{$record->{$key}} = uniq @{$record->{$key}};
    }
}