[...]
sub selectsinglehashref{
   my ($statement) = @_;
   $sth = $dbh->prepare( $statement);
   $sth->execute() or die $dbh->errstr();
   my $hashref = $sth->fetchrow_hashref();
   return $hashref;
}

my $row_ref = selectsinglehashref("select-statement");