&loadDictionary( "words.txt" );


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 = ();