if ( scalar @$result > 0) {
... process rows ...
   print $result[0]->{'b'}."\n";
}
else {
... no rows returned logic ...
}