foreach my $wert ( @{$spalten{3}} ) {
  print "$wert\n";
}
print "2. Wert aus Spalte 3", $spalten{3}->[1];