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