push(@dst, $dst); 
  push(@service, $service); 


##</code><code>##

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


##</code><code>##

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