#!/usr/bin/perl

use warnings;
use strict;

my @Logwerte = ({ name => "Name1",
                  GAs => [{ GA => "GA1",
                            columnName => "A"}]},
                { name => "Name2",
                  GAs => [{ GA => "GA2",
                            columnName => "A"},
                          { GA => "GA3",
                            columnName => "B"}]});

for my $element (@Logwerte) {
    for my $GAelement (@{$element->{GAs}}) {
        print "subscribe for GA [$GAelement->{GA}] and columnName [$GAelement->{columnName}]\n";
    }
}