#!/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);

~/entwicklung 51> perl arrayref.pl 
$VAR1 = {
          'eins' => [
                      '8',
                      '9'
                    ],
          'zwei' => $VAR1->{'eins'}
        };
$VAR1 = {
          '1' => [
                   1,
                   2
                 ],
          '3' => [
                   3,
                   4
                 ],
          '2' => [
                   2,
                   3
                 ]
        };