You already have a subroutine for getting a new database handle, so why not create a subroutine for getting a new statement handle?

sub new_sth {
   my $userid = ...;
   my $dbh = shift;
   my $statement = shift;

   $statement = "/* userid:$userid */ $statement";

   return $dbh->prepare($statement);
}
[download]