sub create_table {
  my ($table_name) = shift;
  ...
}