Establishments with Table service in Perl