#!/usr/bin/perl -w
use strict;
use warnings;
use Data::Dumper;
my %tabelle;
foreach (split m!$/!,
<<KONSTANTE
foo			N
foo2			X
bar			A
KONSTANTE
) {
	my $counter = (keys %{$tabelle{head}}) + 1;
	($tabelle{head}->{$counter},$tabelle{typ}->{$counter}) = split /\t+/,$_;
}
print Dumper(%tabelle);