#!/usr/bin/perl -w
use strict;
use warnings;
use Data::Dumper;
my %tabelle;
push @{ $tabelle{head} }, 'foo', 'bar';
push @{ $tabelle{typ} }, 'N', 'A';
print Dumper(%tabelle);