#!/usr/bin/perl -w

use strict;

open FILE, "/usr/share/dict/words" or die $!;
my @found=<FILE>;
my $counter=0;

for(@found){

     print;
     unless (++$counter%10)
          {print "\npress return to continue\n"; 
           <>;
          };
}