#!/usr/local/bin/perl -w
# quicksum.pl -- Summiert Kolonnen von numerischen Perl-Ausdruecken.

# Spalten zeilenweise aufaddieren.
while (<>) {
    $spalte_nr = 0;
    @werte = split(/\s+/);
    foreach $wert (@werte) { $SUMS[$spalte_nr++] += eval $wert; }
}

# Summen der Spalten ausgeben:
print join("\t", @SUMS), "\n";