my @files = map s/\.ram$//i ? $_ : (), readdir DH;