my %event;
#...
$event{$eventname}++;
#...
if($event{$eventname}>=2){
# mach was
}