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