sub verify {
    my $ref= \$_[-1]; pop(@_);
    my( $string )= @_;
    # ...
}