#!/usr/bin/perl -w
use strict;
use warnings;
use Data::Dumper;
my %tabelle = (
	head => [qw/foo bar/],
	typ => [qw/N A/]
);
print Dumper(%tabelle);