my $rv = getsomething();
die "Error while getting something" unless defined $rv;
die "We did not find anything" unless $rv;
print "Found " . scalar(@$rv) . " thing(s)\n";