my $key = join '|', "$month.year", $fmt_proto, $fmt_dest_ip, $fmt_dest_port, $fmt_src_ip, $fmt_src_port;
$mon_log{$key} += $fmt_drp_packets;