#!/usr/bin/perl -w

use strict;
use DBI;

my $dbh = DBI->connect('DBI:Oracle:xxx', 'xxxxxx', 'xxxxx')
                or die "Couldn't connect to database: " . DBI->errstr;

my $sth = $dbh->prepare("select TABLESPACE_NAME, FILE_NAME, BYTES, MAXBYTES from dba_data_files where FILE_NAME like '%sapdata2%' order by TABLESPACE_NAME")
                or die "Couldn't prepare statement: " . $dbh->errstr;

my @data;

$sth->execute
                or die "Couldn't execute statement: " . $sth->errstr;

###hier befülle ich das Array spaltenweise und überprüfe mit print, ob ich in der richtigen Spalte bin:

while (@data = $sth->fetchrow_array) {
print "$data[2]\n";
}

#hiermit möchte ich dann die einzelnen numerischen Werte aus der 3. Spalte des Arrays miteinander addieren. Als Ergebnis erhalte ich aber immer 0 und keine Fehlermeldungen:

my @column;
for my $line (@data)
{
  push(@column, $line->[2]);
}

my $summ=0;
for my $line (@data)
{
  $summ+=$line->[2];
}
print "$summ\n";