my %hash_of_hashes;

while (<UNITFILES>) {
    my %h;
    (my $rn, @h{
        qw(lastname firstname DOB funding URNo Photo_permission)
    }) = (split /,/)[0,1,2,7,18,15,14];

    $hash_of_hashes{$rn} = \%h;
}