my $table = 'uregisternew';
my @fields = qw( country firstname lastname userid password address1 city state province zippostal email phone favorites remaddr gender income dob occupation age );
my $fields = join(', ', @fields);
my $values = join(', ', map { $dbh->quote($_) } @formdata{@fields});
$sql = "INSERT into $table ($fields) values ($values)";
$sth = $dbh->prepare($sql);
$sth->execute();
$sth->finish();