my @names = (); my @fields = split /\s+/, ; # Ziehe die Feldnamen foreach ( ){ chomp; my %hunt = (); @hunt{@fields} = split; # Hash Slice push @names, \%hunt; } print Dumper \@names; __DATA__ Name Vorname Ort Nonsens Oliver Irgendwo Hansel Ulrich Adorf Pfotenhauer Fritz BB