Select Code to Download

my $password = {};

while (<F>)
...
    @attributes{qw( pwd uid gid dsc hom shl )} = @attributes;  
    $password->{$name} = \%attributes;
}