chdir("/usrs/sophix/Desktop/prottest3/prottest3");
my @ctl = glob("*.aa");
my ($ctltrimmed, $ctlfile, $ctlfiletrimmed);
foreach my $ctlfile (@ctl) {
    if ($ctlfile =~ m/(\S+).aa$/) {
        $ctlfiletrimmed = $1;
    }	

    my $out = system("java -jar prottest-3.0.jar -i " 
                     . $ctltrimmed . "-t " . $ctltrimmed 
                     . "\.trees" . "-o " . $ctltrimmed 
                     . "\.out" . "-all -verbose -all-matrices "
                     . "-threads 3 -G -F -all-distributions -ncat 4");
}