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'
        };