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

#my @aRegeln = @{$hGlobal{rules}}; # wozu?

print Dumper \%hGlobal; # Die ganze Datenstruktur

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