if (ref $searchresult) {
     print "Found it: @$searchresult\n";
 }
 else {
     print "It wasn't found\n";
 }