sub verify {
        my $ref = \pop;
        my $string = @_ ? shift : "<default>";
        $$ref = $string;    # Dummy action for testing
}

verify $a;
verify "hello", $b;

print "a=$a b=$b\n";        # Expect a=<default> b=hello