sub search {
   ... yadda yadda yadda ...
   return @record;
}

my @searchresult = search(... yadda yadda ...);

print @searchresult ? "got it: @searchresult\n" : "nadda\n";