$cube_caunter=1;
@Q[$cube_caunter][0]=(1,2,3);
@Q[$cube_caunter][1]=(4,5,6);
@Q[$cube_caunter][2]=(7,8,9);
@Q[$cube_caunter][3]=(10,11,12);

foreach $j (1..3)
 {
 $ref_zeile[$cube_caunter][$j]=\$Q[$cube_caunter][$j];
 push @Q[$cube_caunter],$ref_zeile[$cube_caunter][$j];
 }
 $ref_[$cube_caunter]=\@Q_[$cube_caunter];	
 push @M_Array,$ref_[$cube_caunter];
 }