#!/usr/bin/env perl

open ($f, "/homes/projects/rsat/rsat/data/supported_organisms_new.tab") or die "fdsf $!";
@names = ();
while($row = <$f>){
    chomp $row;
    @fields = split("\t", $row);
    push @names, $fields[0];
}

open ($fb, ">", "/homes/projects/rsat/rsat/data/blast.txt");

foreach $name (@names){
    if(-d "/homes/projects/rsat/rsat/data/genomes/$name/variations"){
        print $fb $name."\n";
    }
}