use Data::Dumper qw(Dumper);
warn Dumper(\@results,\@disease_name_pocus);