use IO::File ();
local $/;

foreach (sort keys %altnames) { 
      my $fh = IO::File->new;
      my ($hr_title) = m/(.*)\.txt/;
      print("<hr> <h1 align=center> $hr_title </h1>\n");
      my $source = join '/', $dir, $_;
      $fh->open($source);
      while (<$fh>) { 
          print($_);
          }
      $fh->close;
      }