o.k. nochmal:

[Jörk Behrends]

Hallo Ihr zwei!

Das Ihr Euch das Leben immer so kompliziert machen müßt ;-) Nun ja es heißt ja aber auch TIMTOWTDI ...

#hier wird die Reihenfolge festgelegt
@Schluessel = ('vorname','name','strasse','plz','ort',...);

sub einlesen
{
#  File aufmachen und so
while(<IN>)
  {
  chomp;
  my(@content) = split('',$_); #einlesen und aufteilen der eingabe

Der folgende Teil geht kürzer:

my($i);
  my(%hash) = (); # hash leeren

for $i (0 .. $#Schluessel) #für jeden eintrag in Schluessel
    {
    $hash{$Schluessel[$i]} = $content[$i]; ' Wertzuweisung
    }

my(%hash) = (); # hash leeren kann man ja noch mal machen - einmal hätte aber auch gereicht.
@hash{@Schlüssel} = @content;

Gruß,
   Jörk