my ($index)=$dbh->selectrow_array('insert into foo (bar,baz) values (1,2) select @@identity');