$Hash{$mth}{$port}++;
# and especially:
push @Data, [@entry];