my @fields = qw/nam pwd uid gid dsc hom shl/;

while (<F>) {
  my %attrs;
     @attrs{@fields} = split /:/, $_;

  $password->{ $attrs{nam} } = \%attrs;
}