my %Sprachen = ( HTML => "How To Make Love. ",
                 XHTML => "Extended How To Make Love. ",
                 XML => "Extended Making Love. " );
my $Sprachenzeiger = \%Sprachen;

#Zugriff über ref auf hash:
print "Bedeutung von XML: $Sprachenzeiger->{XML} <br>\n";