Oops, I took (way) too long to write my post. But there are a couple of bugs in yours.

1. $table_stats{$1}++; should be $table_stats{lc($1)}++;

2. You only count one table per line, whereas the OP counts every table per line.

Also, I used Regexp::List to improve performance when there are similar table names (fairly likely). That feature is already built into Perl 5.10, though.