#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my %hash;
my @array = qw(1 2);
$hash{eins} = \@array;
@array = qw(8 9);
$hash{zwei} = \@array;

print Dumper(\%hash);

my %hash2;
for(1..3){
  my @ar = ($_,$_+1);
  $hash2{$_} = \@ar;
}
print Dumper(\%hash2);