my ($filename, @mainword, $distance, @search) = @ARGV;