#Get Reffers
 my @ref;
 (@reffer) = build_reffers($mem_info[2]);

## Build Refferal List
sub build_reffers {
 $REF = shift;
 $sth = $dbh->prepare("SELECT username FROM wbwm_members WHERE refferal='$REF'");
 $sth->execute;
 
 while($username = $sth->fetchrow_array) {
  push(@users, $username);
 }

 $users = join(/\|/, @users);
 push(@ref, $users);

 foreach $name (@users) {
     build_reffers($name);
 }

 return(@ref);
}