hasher.go

package main

import (
	"bufio"
	"os"
)

func main() {
	bufStdOut := bufio.NewWriterSize(os.Stdout, 1000)
	defer bufStdOut.Flush()

	file, err := os.Open(os.Args[1])
	if err != nil {
		panic(err)
	}
	defer file.Close()

	words := make([]string, 0, 1000)

	scanner := bufio.NewScanner(file)
	for scanner.Scan() {
		words = append(words, scanner.Text())
	}

	for _, a := range words {
		for _, b := range words {
			bufStdOut.WriteString(a + b + "\n" + a + " " + b + "\n")
		}
	}
}

hasher.pl

#!/usr/bin/perl
while (<>) {
    chop;
    $w[$#w + 1] = $_;
}
foreach $a (@w) {
    foreach $b (@w) {
        print "$a$b\n";
        print "$a $b\n";
    }
}

test-go.sh

time ./hasher 10-million-password-list-top-1000.txt > /dev/null 

test-perl.sh

time perl hasher.pl 10-million-password-list-top-1000.txt  > /dev/null