my %param = map { $_ => $q->param($_) } qw( user_name gender real_name city country email confirmemail birthmm birthdd birthyy );