sub upd_info
{
    my ($hashref, $arrayref) = @_;

    for my $key (keys %{$hashref})
    {
        my $upd_flg = 0;
        for my $item (sort @{$arrayref})
        {
            if ($item =~ /^$key\s+(\w+)$/)
            {
                $upd_flg++;
                $hashref->{$key} .= " $1";
                last;
            }
        }
        if ($upd_flg == 0)
        {
            $hashref->{$key} .= " NONE";
        }
    }
}