use strict; # ! use warnings; # ! my %zeile = (); @zeile{qw(Name Alter Ort)} = split /,/, qq(Heinz,33,Buxtehude); print Dumper \%zeile; so sieht das aus $VAR1 = { 'Alter' => '33', 'Name' => 'Heinz', 'Ort' => 'Buxtehude' };