my %hash_of_hashes;

while (<UNITFILES>) {
    my @f = split /,/;

    $hash_of_hashes{$f[0]} = 
    { 
         lastname         => $f[1],
         firstname        => $f[2],
         DOB              => $f[7],
         funding          => $f[18],
         URNo             => $f[15],
         Photo_permission => $f[14],
    };
}