[\d\w] is the same as \w, and adding an anchor to the regex pattern might be more efficient:

   push @files, $_ if /^\w[^TV]/; 

or simply:

   my @files = grep {/^\w[^TV]/} glob("*.pl");

or try shell to negate the character-class:

   my @files = glob("h[!TV]*.pl");

Regards, 
Xicheng