open(HFGWRT, "<hfgwrtnew.txt") || die "Datei hfgwrtnew.txt konnte nicht geöffnet werden!";
my @hfgwrt = <HFGWRT>;
close(HFGWRT);

open(BOSSLEX, "<bosslexikon.txt") || die "Datei bosslexikon.txt konnte nicht geöffnet werden!";
while (<BOSSLEX>) {
  chomp;
  my ($bossgra, $bosspho) = split /\t/, $_;
  push (@bossgra_ar,("$bossgra\n"));
  push (@bosspho_ar,("$bosspho\n"));
}