my $tstr = join(',', ('?') x @table);
     my $tv   = join(',', @table);

##</code><code>##

      $sth->execute( @data) || die("Error: Can't execute: $DBI::errstr");

##</code><code>##

   die "Hey, \@data should have " . 
        scalar(@table) . 
        " values but it only has " . scalar(@data) . "!"
     if @data != @table;