yup, thats a bug, to fix you can put references into array, then local

sub Dump {
    my @vals ;
    my @opts ;
    for my $option (@dump_options) {
        no strict 'refs';
        my $var = \${"$implementation\::$option"};
        push @opts, $var;
        push @vals, defined $value ? $value : ${"YAML::$option"};
    }
    local (@opts) = @vals;
    return &{"$implementation\::Dump"}(@_);
}
[download]