my @files = ("foo.htm","two.htm","three.HTM","FOUR.HTML");  
                # etc etc for as many variants as you like

foreach $file(@files) {
  if ($file =~ s/html|htm$/i) {
    print $file;
  }
}