If your excluded names are keys in hash, you can just say

unless ($excluded_table{$table_name}) {
  do assignments
}
[download]

What?

I would say that settings $Table_1 thru three inside the foreach doesn't seem to make sense because they are the same each iteration, or are they? Are you asking to have the Table variables only set when the $table_name is not in a certain array? If that is the case do you want to skep to the next table in the @tables list?

On second thought i have no clue what you want, i'm sure you will get the needed help if you reply with a litte more detail on exactly what you are trying to accomplish.

An executable example:

use strict;

#create the exclusion hash outside of loop
#much cheaper than recreating though each pass inside of loop!
my %excluded_tables = ( 'SYSTEM' => 1,
                        'OBJECTS' => 1 );
                        
my @tables = qw(PEOPLE PLACES THINGS OBJECTS CONTACTS CUSTOMERS SYSTEM
+);

#foreach my $table_name (@tables) would be fine, too.
#assigning vars the value of $_ inside of a loop is kind of funky
for (@tables) {
  unless (exists $excluded_tables{$_}) {
    print "Assigning vars for $_\n";
    my ($table_1, $table_2, $table_3) =
      ("Table_name_A", "Table_name_B", "Table_name_C");
  } else {
    print "Skipping $_\n";
  }
}
[download]

sub Check_excluded_tables_list (@) {

  @tables = @_;
  @Excluded_tables = qw/Table_A/;
  
  foreach (@tables){
    $table_name = $_;
    if ($table_name =~ @Excluded_tables){
      $table_name = "";
    }
    else{
      # do nothing
    }
    push (@list_of_accepted_tables, $table_name);
    }
  
  
  #close list of all table names
  if (@tables = @list_of_accepted_tables){
    $status = "good";
  }
  else{
    $status = "bad";
    
  }
}
[download]

I haven't had time to test this code yet.

How about this?

sub checkxtlist (@) {
   my @Excluded = qw(Table_A Table_B);
   my %Excludes = map { $_ => 1 } @Excluded;
   my @Accepted = grep { !$Excludes{$_} } @_;
   my $status = (@_ == @Accepted) ? "good" : "bad";
}
[download]

Of course, you probably don't want to hard code the list of excluded tables in the subroutine (I don't know though, you might). And I'm not sure why you want a prototype on this subroutine either.

Also, if you wanted to exclude by regular expression, you could do that too without much difficulty:

sub checkxtpatlist ($@) {
   my $pat = shift;
   my @Accepted = grep { !/$pat/ } @_;
   return my $status = (@_ == @Accepted) ? "good" : "bad";
}

my $s = checkxtpatlist(qr/Table_[ABC]/,@tables);
[download]


duff