Select Code to Download

my $frq_node = {};

...
    $frq_node->{$key}[0]{$to}++ if /sending ping/;
    $frq_node->{$key}[1]++      if /recevied ping response/;
}