#!/usr/bin/perl -w
while (my $filename = <*.secret>) {
     open(WORDSLIST, $filename);
     if (-M WORDSLIST < 7) {
          while (my $name = <WORDSLIST>) {
               chop($name);
               my $word = <WORDSLIST>;
               chop($word);
               write; # invoke format STDOUT to STDOUT
          }
     }
}

format STDOUT =
@<<<<<<<<<<<<<<< @<<<<<<<<<< @<<<<<<<<<<
$filename, $name, $word
.

format STDOUT_TOP =
Page @<<
$%

Filename         Name        Word
================ =========== ===========
.