..bunch of code..
COMMIT TRAN
SELECT @id

##</code><code>##

my @id = $sth->fetchrow_array;
return $id[0];