$sth = $dbh->prepare("SELECT username FROM users");
 $sth->execute;

 while ( $users = $sth->fetchrow_array ) {
    if (param("username") =~ /$users/) {
    	error("Username already exists, please make a different one");
    }
 }