@zel = (1, 2, 3);
@ze2 = (4, 5, 6);
@ze3 = (7, 8, 9);

@matrix = (\@zel, \@ze2, \@ze3);
# geht auch anders, naemlich so:
# @matrix = \(@zel, @ze2, @ze3);

foreach $i (@matrix)
  {
	foreach $j (@$i)
	  {
		print "$j, ";
	  }
	print "\n";
	}