[Perl]Method of tables() can't return values