package DB;
use strict;
use base qw(Exporter);
use vars qw(@EXPORT_OK);
@EXPORT_OK = qw(createtb);


sub createtb{
  	my ($form, $tabler, $dbh) = @_;
        my @table = @$tabler;
               foreach my $table (@table){  
  	           my $stm = "create table $table ($form)";
                   my $stm1 = $dbh -> prepare($stm);
                   $stm1 ->execute;        
           	
           				  }
           		}