Select Code to Download

    # let array handle context.
    # list of items in list context, count of items in scalar.
...
       my( $storage, $pat ) = @_;
       grep /$pat/, $storage->things()
    }

    # list of items in list context, first item in scalar.
    sub matching_things {
...
       }
       @things
    }