#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my %hGlobal;

my @aRegel0 = qw ( foo0 bar0 );
my @aRegel1 = qw ( foo1 bar1 );
my @aRegel2 = qw ( foo2 bar2 );
my @aRegel3 = qw ( foo3 bar3 );

@{$hGlobal{rules}} = (
    \@aRegel0,
    \@aRegel1,
    \@aRegel2,
    \@aRegel3
);

print Dumper \%hGlobal; # Die ganze Datenstruktur

print $hGlobal{rules}->[0]->[0]; # Zugriff auf einen Wert