A more compact pattern might be

my @Dir = ReadDirectory("dirName", qr/\.html/);

sub ReadDirectory {
  local *MYDIRHANDLE;
  my ($dir, $pat) = @_;
  opendir MYDIRHANDLE, $dir or return ();
  map "$dir/$_", grep $pat, readdir MYDIRHANDLE;
}
[download]

In fact, that's usually short enough that I just open-code it rather than have a subroutine.

-- Randal L. Schwartz, Perl hacker