my $sth = $dbh->prepare("INSERT INTO member (nickname, password, first_name, last_name, email, country, homepage, im_type, im_id, info) VALUES (?,?,?,?,?,?,?,?,?,?)");

$sth->execute(
    map {scalar(param($_))} qw(username password1 firstname 
         lastname email imtype imid info
    )
);