Really, you should just use `my $sth = $dbr->prepare...` later. Why break it into two lines?