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/;
  }