#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use feature 'say';

my %hierhash = dofn(0,5,1);

say "1 $hierhash{'var2'}[3]";

push my @hashfeld, {%hierhash};

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

my $wert = $hashfeld[0]->{'var2'}[3];
say $wert;

$wert = $hashfeld[1]->{'var2'}[3];
say $wert;

# @array = $hashfeld[1]->{'var2'};

my @array = @{$hashfeld[1]->{'var2'}};
print Dumper \@array;

# ################################################
# holt die fn Werte
# ################################################
sub dofn  {
   my $i;
   my ($ivon, $ibis, $imal) = @_;
   my %hashfn;

   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;
}

__END__

$ perl test.pl
1 30
2 60
30
60
$VAR1 = [
          0,
          20,
          40,
          60,
          80
        ];