I've got not a clean solution but it works:

replace

  push(@dst, $dst); 
  push(@service, $service);
[download]

with

  @data{$dst}{$service}++;
  if ($data{$dst}{$service} == 50) {
    do magic; }
[download]

--
package Lizard::King;
sub can { do { 'anything'} };
[download]