my $cnt = 0;
while(1)
{
   $cnt++;

   #print event trigger from hash
}