for (@UnNum) {
    my $count = \$_->[0];
   
    exists $triggers{$_} && ++$$count for @{$_->[1]};
}

print join "\n", map {"$_->[0]\t " . join ' ', @{$_->[1]}} @UnNum;