my $fields;
@$fields{qw( username password )} = @Login{qw( username password )};