my $slot = $self->header ('test');
$$slot = "New value";
print "Value for header: $$slot"; # or even $slot, if you overload the stringification