@files=`dir/on/b 4A\\*`;
chomp @files;
foreach $line (@files) {
  $line.="   \n";
}

open (OUT, ">grades.txt");
print OUT @files;
close OUT;