...
    my $sqlstatement = "insert into $table ($keylist) values ($qlist) returning id";
    my $sth = $dbh->prepare($sqlstatement);
    $sth->execute(@values) || die "Could not execute statement: $sqlstatement $sth->errstr";
    my $id = $sth->fetchall_arrayref->[0]->[0];
...