use strict;
use warnings;
use File::Glob qw/:nocase/;
use File::Basename;

my @htmlFiles = map { my $file = fileparse $_; qq{<a href="$file">$_</a><br>\n} }
  <directory/*.{htm,html}>;

print for @htmlFiles;