in reply to uninitialized value in numeric eq (==)

Change my($schema_in) = $_; into my $schema_in = shift; and it works.

$_ is not set on enty into sub routine, @_ is.

--tidiness is the memory loss of environmental mnemonics