use strict;
use warnings;
use Data::Dumper;

my @data;

# Tabelle füllen
# zum Verständnis unwichtig
# nur damit man was zum bearbeiten hat
@data=map{$_=[split(/\s+/,$_)]}split(/\n/,<<EOT);
PSAPSOURCEI /oracle/CS6/sapdata2/sourcei_1/sourcei.data1 4341104640 31457280000
PSAPSOURCEI /oracle/CS6/sapdata4/sourcei_2/sourcei.data2 3460300800 5242880000
PSAPSTABD /oracle/CS6/sapdata4/stabd_2/stabd.data2 24641536000 31457280000
PSAPSTABD /oracle/CS6/sapdata5/stabd_3/stabd.data3 24704450560 31457280000
EOT


# wie sieht das aus:
# "Dumper" gibt die Datenstruktur aus
print Dumper(\@data)."\n";

# Zugriff auf das Feld in der ersten Zeile in der ersten Spalte:
print $data[0][0]."\n";

# Zugriff auf das Feld in die dritten Zeile in der letzte Spalte:
print $data[2][-1]."\n";

# Zugriff auf das Feld letzte Zeile, dritte Spalte:
print $data[-1][2]."\n";

# Zugriff auf das Feld zweite Zeile, zweite Spalte:
print $data[1][1]."\n";

# alle Werte aus der ersten Spalte:
for my $line (@data)
{
  print $line->[0]."\n";
}

# alle Werte aus der letzten Spalte in ein neues Array
my @last_colomn;
for my $line (@data)
{
  push(@last_colomn, $line->[-1]);
}

# alle Werte der vorletzten Spalte aufaddieren:
my $summ=0;
for my $line (@data)
{
  $summ+=$line->[-2];
}
print "$summ\n";