<perl>
@Daten1 = (1,2,3);
@Daten2 = (4,5,6);
@Daten3 = (7,8,9);
out "D1:\>", $Daten1[1],"\<<p>";
@Daten = ((1,2,3),(4,5,6),(7,8,9));
out "D2:\>", $Daten[2][1],"\< ";
for(@Daten)
{ out $_; } out "<p>";
@DatenX = (@Daten1,@Daten2,@Daten3);
out "D3:\>", $DatenX[2][1],"\< ";
for(@DatenX)
{ out $_; } out "<p>";
out "D4:\>", $DatenX[2,1],"\<<p>";
out "D5:\>", $DatenX[2],"\<<p>";
$DatenY[0][0]=1;$DatenY[0][1]=2;$DatenY[0][2]=3;
$DatenY[1][0]=4;$DatenY[1][1]=5;$DatenY[1][2]=6;
$DatenY[2][0]=7;$DatenY[2][1]=8;$DatenY[2][2]=9;
out "D6:\>", $DatenY[2][1],"\< ";
for(@DatenY)
{ out $_," "; } out "<p>";
for(@DatenY)
{ for(@_)
{ out $_," "; }} out "<p>";
</perl>