memory troubleshooting

#!/usr/bin/perl
my $max_used = 0;
my %memcounts;
opendir(DH,".") || die "Unable to open current directory";
while(my $file = readdir(DH)) {
        if($file =~ m/memmon.txt/) {
                open(FILE, "<$file");
                while($line = <FILE>) {
                        if($line =~ m/buffers/cache: +([0-9]+) +([0-9]+)/) {
                                $used = $1;
                                $memcounts = $memcounts ? $memcounts + 1 : 1;
                                $max_used = $used > $max_used ? $used : $max_used;
                        }
                }
        }
}
print "Max memory used: $max_used\\n\\n";
for($i = 0; $i <= $max_used; $i++) {
        print "$i  => ".$memcounts."\\n";
}