Clean Table (Perl) fix