foreach my $zeile ( split/\n/, $rec_db ) {
  my @values = split /\t/, $zeile;
  # und dann hast Du die Werte alle im Array
  # um sie über Ihren Namen anzusprechen gäng's auch so
  my @keys = qw/nr keyword titel meta-keywords meta-desc meta-page-topic datei(Pfad)/;
  my %hash = map {length $values[$_] ? ($key[$_] => $values[$_]) : ()} 0..$#values if scalar @values;
  # nun kannst Du z.B. mit exists $hash{nr} nachschauen,
  # ob die gewünschten Werte existierten, 
  # denn die Schlüssel werden nicht angelegt,
  # wenn zwei \t aufeinander folgten
  # oder wenn nicht alle Felder angegeben wurden.
  # ansonsten gänge auch @hash{@keys} = @values;
}