#!/usr/bin/perl

use warnings;
use strict;

my $daten;
my @tables = qw(Tabelle1.Spalte1 Tabelle1.Spalte2 Tabelle1.Spalte3
Tabelle2.Spalte1 Tabelle2.Spalte2 Tabelle2.Spalte3
Tabelle3.Spalte1);

for (@tables) {
 my ($a, $b) = split(/\./, $_);
 push @{$daten->{$a}}, $b;
}

for (keys (%$daten)) {
 print "Groesse des Arrays für $_: ", scalar(@{$daten->{$_}}), "\n";
 print $_,"\n";
 print "--", $_, "\n" for (@{$daten->{$_}});
}

exit();