$aRegel0[0] = 'Beschreibung 0';					
$aRegel0[1] = 'REGEX';		

$aRegel1[0] = 'Beschreibung 1';
$aRegel1[1] = 'REGEX';	

...

my %res = @{$hGlobal{rules}} = (
\@aRegel0,
\@aRegel1,
\@aRegel2,
\@aRegel3
);
		
print Dumper \%res;

$VAR1 = {
          'ARRAY(0x16050f0)' => [
                                  "Beschreibung 3",
                                  "REGEX"
                                ],
          'ARRAY(0x16050a8)' => [
                                  "Beschreibung 1",
                                  "REGEX"
                                ]
};