#!/usr/bin/perl -w

my %hierhash;
my @feld;
my @hashfeld;
my $wert;

@hashfeld = ();

%hierhash = &dofn(0,5,1);
print "1 $hierhash{'var2'}[3] \n";

push(@hashfeld,%hierhash);

%hierhash = &dofn(0,5,2);
print "2 $hierhash{'var2'}[3] \n";
push(@hashfeld,%hierhash);

$wert = $hashfeld[0]->{'var2'}[3];
print "$wert \n";

sub dofn () {
   my ($i, $ivon, $ibis, $imal);
   my %hashfn;

   $ivon = $_[0];
   $ibis = $_[1];
   $imal = $_[2];

   for ($i = $ivon; $i < $ibis; $i++) {
      push(@{$hashfn{'var1'}}, $i*$imal);
      push(@{$hashfn{'var2'}}, $i*$imal*10.);
      push(@{$hashfn{'var3'}}, $i*$imal*20.);
   }

   return %hashfn;
}