Select Code to Download

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

use strict;
use Benchmark qw(cmpthese);
...
          Rate class   mod
class 347719/s    --  -15%
mod   408606/s   18%    --