Wie Zeile (ohnne Schlüssel/Wert) in ein hash einlesen?

[Klaus Mock]

Hallo Günther,

Bitte nicht:
Frage: ich suche ein rotes Tuch
Antwort: nimm ein blaues Tuch

ich würde zwar auch das blaue nehmen, aber wenn's unbedingt rot sein sollte (sicherlich nur eine Variante):

while(<IN>)
  {
  chomp;
  my(@content) = split('',$_);
  my($i);
  for $i (0 .. $#content)
    {
    $content{"feld$i"} = $content[$i];
    }
  }

oder vielleicht

@Schluessel = ("ABRA","KADA","BRA","SIM","SALA","BIM");
while(<IN>)
  {
  chomp;
  my(@content) = split('',$_);
  my($i);
  for $i (0 .. $#Schluessel)
    {
    $content{$Schluessel[$i]} = $content[$i];
    }
  }

Grüße
  Klaus