#!/usr/bin/perl

while (<>) {
#lange version:
#	@tmp = split;		# Splitten
#	push @AoA, [@tmp];	# anonyme Arrayreferenzen aufnehmen
#kurze version:
	push @AoA, [split];
}

foreach (@AoA)
{
	print "@$_";
}

#oder Ausgaben mit Indizes

for $i (0 .. $#AoA)
{
	print "Zeile $i lautet @{$AoA[$i]}\n";
}