my @files = grep s/\.ram$//i , readdir DH;