Try changing:

sub create_table ($) {

  my($schema_in) = $_;
[download]

to:

sub create_table {

  my ($schema_in) = @_;
[download]

See if that helps.

Read perlvar for more info on the difference between $_ and @_ (they are very different, even though they look similar)