Actually
$dbh = $_[0];
or
($dbh) = @_;
or
$dbh = shift(@_);
or
$dbh = shift;
but yes.