subb add_user{
  my ($self,@data) = @_;
  my $i = 0;
  for(qw/nickname password firstname name gender birthday/){
    $self->{$_} = $dbh->quote($data[$i]);
    ++$i;
  }
  # connect;
}