sub insertRecord {
  my $newRow = shift;
  my $id = getSequence;
  execute "insert table (id, data) values ($id, $newRow);";
}

sub getSequence {
  my $seq = execute "select id from sequenceTable;";
  #now increment sequence
  execute "update sequenceTable set id = id + 1;";
  return $seq;
}