I see now. Also I am a new in Perl, so I have the same problem as you before. I understand when using the  next unless $trans->att('kool') eq 'kool'; it is easy to do it instead to have a counter.
Thanks for your advise. I really appreciated.

Maxim