eval { return thatroutine() || die };

for (thatroutine()) { return $_ if $_ }

$_ and return $_ for thatroutine();