Help for this page
push(@dst, $dst); push(@service, $service);
@data{$dst}{$service}++; if ($data{$dst}{$service} == 50) { do magic; }
-- package Lizard::King; sub can { do { 'anything'} };