sub create_table ($) { my($table_name) = $_; if (my $table_name eq /Doncaster_Deaths_1975_onwards_slim_D/){ #### sub create_table ($) { my($table_name) = $_; if ($table_name eq "Doncaster_Deaths_1975_onwards_slim_D"){