if (my $ref = $dbh->selectcol_arrayref($query)) {
  $param{welcome} = pop @$ref;
}
elsif ($DBI::err) {
  die $dbh->errstr;
}
else {
   # nothing returned, but no error?
}