sub upd_info {
    my ($hashref, $aryref) = @_;
    for my $key (keys %$hashref) {
        my $upd_flag = 0;
        for (sort @$aryref) {
            if ( /^\Q$key\E\s+(\w+)$/ ) {
                $upd_flag++;
                $hashref->{$key} .= $1;
                last;
            }
        }
        $upd_flag or $hashref->{$key} .= ' NONE';
    }
    1;
}