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