foreach my $line (grep /\b01\s/, `cat /proc/net/tcp`  ) {
    ++$count{$service{$1}} while $line =~ /$match/g;
}