my $sth = $dbh->prepare("SELECT qseqid FROM AllJoinRecip");
$sth->execute() or die("execute failed " . $sth->errstr());

my $i = 1;
while(my $seq = $sth->fetchrow()) {
        next if(exists $processed{$seq});
        my $out = `./friendoffriend.pl "$seq"`;
        my @results = split(',', $out);
        $processed{$_} = 1 foreach (@results);

        print "Cluster $i:  $out\n";
        $i++;
}