my $001= "prob_001";
my $002= "prob_002";
my $003= "prob_003";

@filter: ("001", "002", "003");

#Brainextraction
foreach ("001", "002", "003")