(@ref) = build_refers($mem_info[2]);

## Build Referal List
sub build_refers {
 my @users;

 $REF = shift;
 $sth = $dbh->prepare("SELECT username,status FROM members WHERE referral='$REF'");
 $sth->execute;
 
 while(($username,$status) = $sth->fetchrow_array) {
  $that = "$username=$status";
  push(@users, $that);
 }

 $users = join("|", @users);
 push(@ref, $users);
 
 if($t < 2) {
 foreach $name (@users) {
 $t++;
   ($name, $status) = split(/=/, $name);
   if($name) {
     (@list) = build_refers2($name);
   }
 }
}
 return(@ref);
}

##</code><code>##

@ref = qw(name1=member|name2=member|name3=member name1=member|name2=member|name3=member name1=member|name2=member|name3=member);