#!/usr/local/bin/perl -w
use strict;

my @Q1_1=(1,2,3);
my @Q1_2=(4,5,6);
my @Q1_3=(7,8,9);
my @Q1_4=(10,11,12);

my $ref_zeile_1=\@Q1_1;
my $ref_zeile_2=\@Q1_2;
my $ref_zeile_3=\@Q1_3;
my $ref_zeile_4=\@Q1_4;

my @Q1= ( $ref_zeile_1, $ref_zeile_2,$ref_zeile_3,$ref_zeile_4 );


my @Q2_1=(13,14,15);
my @Q2_2=(16,17,18);
my @Q2_3=(19,20,21);
my @Q2_4=(22,23,24);

my $ref_zeile_5=\@Q2_1;
my $ref_zeile_6=\@Q2_2;
my $ref_zeile_7=\@Q2_3;
my $ref_zeile_8=\@Q2_4;

my @Q2= ( $ref_zeile_5, $ref_zeile_6,$ref_zeile_7,$ref_zeile_8 );

my $ref1=\@Q1;
my $ref2=\@Q2;

my @M_Array=($ref1,$ref2);