my @audiofiles = grep { s/\.ram$//i } readdir DH;