#! /usr/bin/perl
# vim:ts=4 sw=4 sts=4 et nu fdc=3:
use strict;
use warnings;

my $spalte = 3;

#> Variante der Einzelverarbeitung

my $summe;
my $schwelle = 31.0;
my $zuviele = 0;

my $position = tell(DATA);  # fuer demo zwecke, weil wir aus DATA Sektion lesen

while ( my $zeile = <DATA> ) {
    chomp $zeile;

    # hoffentlich keine Whitespaces in den Daten...
    my @spalten = split m{\s+}, $zeile;

    # verarbeite nur gewuenschte Spalte
    $summe += $spalten[$spalte-1];

    # zaehle, wie oft $spalte die $schwelle ueberschritten hat
    $zuviele++  if $spalten[$spalte-1] > $schwelle;
}

print "Die Summe der Spalte $spalte beträgt: $summe\n";
print "Dabei waren $zuviele Werte größer als $schwelle\n";


#> Variante der Sammelverabeitung

print "-------8<---------\n";
seek(DATA,$position,0);  # fuer demo zwecke, weil wir aus DATA Sektion lesen; Handle-Position zuruecksetzen

my %summe;
my %zuviele;
my %schwelle = (
    # Spalten-Nr => Schwellwert
    1   => 35000,
    2   => 30.0,
    3   => 31.0,
    # ...
);


while ( my $zeile = <DATA> ) {
    chomp $zeile;

    # hoffentlich keine Whitespaces in den Daten...
    my @spalten = split m{\s+}, $zeile;

    # verarbeite alle Spalten; Array-Index beginnt bei 0, 
    # daher wird $idx+1 als Hash-Key genutzt, um wieder als Spaltenangabe zu dienen
    for my $idx ( 0 .. $#spalten ) {
        # Summe pro Spalte
        $summe{$idx+1}     += $spalten[$idx];
        # zaehle Schwellwertueberschreitungen pro Spalte
        $zuviele{$idx+1}++     if exists $schwelle{$idx+1} && $spalten[$idx] > $schwelle{$idx+1};
    }
}

# alles ausgeben
#for my $spalte ( sort keys %summe ) {
#    print "Die Summe der Spalte $spalte beträgt: $summe{$spalte}\n";
#    if ( exists $schwelle{$spalte} && exists $zuviele{$spalte} ) {
#        print "Dabei waren $zuviele{$spalte} Werte größer als $schwelle{$spalte}\n";
#    }
#}

# nur gewünschte Spalte ausgeben
print "Die Summe der Spalte $spalte beträgt: $summe{$spalte}\n";
if ( exists $schwelle{$spalte} && exists $zuviele{$spalte} ) {
    print "Dabei waren $zuviele{$spalte} Werte größer als $schwelle{$spalte}\n";
}


__DATA__
32161   28.0    31.0    38.0    36.0    37.0    4245    1.12    1.9
32164   27.0    31.0    38.0    36.0    37.0    4245    1.12    1.9
32167   27.0    31.0    38.0    36.0    37.0    4219    1.12    1.9
32170   27.0    31.0    38.0    36.0    37.0    4219    1.12    1.9
32173   27.0    31.0    38.0    36.0    37.0    4219    1.12    1.9
32176   27.0    31.0    38.0    36.0    37.0    4219    1.12    1.9
32179   27.0    32.0    38.0    36.0    39.0    4245    1.12    1.9
32182   27.0    32.0    38.0    36.0    37.0    4245    1.12    1.9