for (@UnNum) { my $count = \$_->[0]; exists $triggers{$_} && ++$$count for @{$_->[1]}; } print join "\n", map {"$_->[0]\t " . join ' ', @{$_->[1]}} @UnNum; [download]
In reply to Increment other than ++ by Gavin