# Eerst die shizzle inlezen
	# Inlezen van elk woord, indien niet '...' dan woord bijhouden plus locatie
		# locatie bepalen door dimensie te zoeken, dan dimensie bijhouden en elk 'woord' dat na dimensie valt komt op rij x keer dimensie voorgekomen

$matrix[0][0] = 'zero-zero';
$matrix[1][1] = 'one-one';
$matrix[1][2] = 'one-two';

$dimensie = 0;
@matrix;
print "OPGAVE\n";
while(<DATA>) {
	print $_;
	@rij = split(' ',$_);
	$kolom = 0;
	foreach $loc(@rij) {
		$matrix[$dimensie][$kolom] = $loc;
		$kolom++;
	}
	$dimensie++;

}

print "\n\n";

foreach my $row (@matrix) {
    foreach my $element (@$row) {
        print $element, "\n";
    }
}


__DATA__
... ... 017 ... ...
... 021 ... 023 ...
005 ... ... ... 013
... 003 ... 001 ...
... ... 009 ... ...