for (my $x = 1; $x <= 20; $x++) {

system `perl neweval6.pl -r original$x.sgml -t hyp$x.sgml -s test -d 2` ;

system `mv test.scorePerSent.log out_original$x.txt` ;

}