Quote

&loadDictionary( "words.txt" );


sub loadDictionary {

my( $DICTFILE ) = $_[0];

require FindBin;
$DICTFILE = $FindBin::Bin . $DICTFILE;
#sub loadDictionary {

#  my( $DICTFILE ) = $_[0];
# my( @lines );

 # Read in the dictionary into memory
 print "Reading file '$DICTFILE'...";
open( DICTFILE, "$DICTFILE" ) || die( "Couldn't open file" );;
 my( @filelines ) = <DICTFILE>;
 close( DICTFILE );
 foreach $line (@filelines) {
   push( @lines, $line ) if( $line =~ m/\w/ );
 }
 @filelines = ();