#!/usr/local/bin/perl -w
# symrefs-hairy.pl -- Symbolische Referenzen koennen haarig sein

no strict 'refs';           # Erlaube symbolische Referenzen

$vname    = ' ';            # Variable, genannt $' '
${$vname} = 4711;           # Sowas wie $' ' = 4711;
print ${$vname}, "\n";      # 4711

$strange_name    = 'illegal name for an identifier';
${$strange_name} = 'Wow!';  # Sowas wie $'illegal name...' = 'Wow!';
print ${$strange_name}, "\n";   # Wow!

$vreserved    = 9;          # Variable genannt $9
${$vreserved} = 0;          # Hmmm, 9 = 0? Diagonalbeweis?
                            # FALSCH! $9 = 0 geht nicht, da $9 eine
                            #   Read-only-Variable ist.
print ${$vreserved};        # $9 ist reservierte Variable!