#!/usr/bin/perl -w
#!C:/xampp/perl/bin/perl -w
#
#    This file is part of a perl tutorial
#
#    (C) Copyright 1999 Hans Kern
#
#    File name    : pldemo12.cgi
#    Created by   : Hans Kern
#    Creation date: 25.5.99
#

#    Beispiel Strukturen mit Referenzen.

print "Content-type:text/plain\n\n";

#use strict;
# Achtung! $x und $y dürfen nicht unter my stehen!
my( $key, $index);
local( $x, $y);

# Dürfen in einem hash die Keys Referenzen sein?
my %hash       = (
   "x" , 5,
   "y" , 10
  );

# In einem Array dürfen die Elemente Referenzen sein!
my @array = ( \$x, \$y);

$x = -5;
$y = -10;

foreach $key ( keys( %hash ) ) {
   print "$key $hash{$key}\n";
   $$key=$hash{$key};
}

print "$x\n";
print "$y\n";

foreach $index ( @array) {                #  
   print "$$index\n"
}