$refferal[0] = "1|2|3|4" #first refferals
$refferal[1] = "1|2|3|4|5|6" #second refferals
$refferal[2] = "1|2|3" #third refferals

##</code><code>##

 #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);
}

##</code><code>##

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