#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

                                     # Definieren von ...
$scalar       = "SCALAR_VALUE";      #   Skalar
$hash{"KEY"}  = "HASH_VALUE";        #   Hash
@array        = ("ARRAY_VALUE");     #   Array

                                     # Referenz auf ...
$scalar_ref     = \$scalar;          #   Skalar
$array_ref      = \@array;           #   Array
$hash_ref       = \%hash;            #   Hash
$code_ref       = sub { "RETCODE" }; #   Code
$scalar_ref_ref = \$scalar_ref;      #   Referenz

print "Datentypen: ",                # Typen ermitteln
      ref($scalar_ref), " ",
      ref($array_ref),  " ",
      ref($hash_ref),   " ",
      ref($code_ref),   " ",
      ref($scalar_ref_ref), "\n";
                                               
print "Werte:      ",                # Dereferenzierte ...
      $$scalar_ref,      " ",        #   Skalarreferenz
      @$array_ref,       " ",        #   Arrayreferenz
      %$hash_ref,        " ",        #   Hashreferenz
      &$code_ref,        " ",        #   Codereferenz
      $$$scalar_ref_ref, "\n";       #   Referenz auf 
                                     #   Skalarreferenz