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

##</code><code>##

  my @files = map s/\.[Rr][Aa][Mm]$// ? $_ : (), readdir DH;