my $password = {};

while (<F>)
{
    my ($name, @attributes) = split(/:/, $_);
    my %attributes;
    @attributes{qw( pwd uid gid dsc hom shl )} = @attributes;  
    $password->{$name} = \%attributes;
}