#!/usr/local/bin/perl -w
# matrix-dyn.pl -- Dynamisches Einlesen von Matrizenwerten.

# Matrix einlesen und dynamisch aufbauen.
while (<>) {
    chomp;
    push(@{$matptr}, [ split(/\s+/) ]);
}

# Matrix wieder ausgeben:
foreach my $rowptr ( @{$matptr} ) {
    print "(", join(',', @{$rowptr}), ")\n";
}