Referenz auf gekapselte Variable?

[*Markus]

Hallo,

irgendwie scheint mein Perl schon ziemlich eingerostet zu sein. Ich würde gerne in einer Methode über die lokale Hilfsvariable die Attribute verändern, aber weiß irgendwie nicht mehr, wie ich dies zu dereferenzieren habe.
Hier ist die angewendete Klasse:

  
package Newsticker;  
sub new    {  
   my $classname = shift;  
   my $self = {  
               datum => "",  
               ueberschrift => "",  
               text => ""  
       };  
return bless $self, $classname;  
}  

...und hier die Methode, wobei $d eigentlich eine Referenz auf das Attribut "datum" sein soll, sprich, $d soll "datum" verändern können, aber wie schaffe ich das? (zB hilft $$d auch nichts)

  
sub checkDatum    {  
       my $self = shift;  
       my $d = $self->{datum};  
       $d =~ s/^\s+|\s+$//;  
       if ($d eq '')   {  
       $d = 'Das Datum fehlt!';  
       }  
}  

Markus.