Use of uninitialized value in numeric eq (==) at Creating_table_D.pl line 31.
Use of uninitialized value in numeric eq (==) at Creating_table_D.pl line 35.

##</code><code>##


sub create_table ($) {

  my($schema_in) = $_;

  if ($schema_in == "1"){ # offending line 1
    my @tables = qw/A/;
  }

  if ($schema_in == "2"){# offending line 2
    my @tables = qw/A B C/;
  }