$ time perl test_pdl.pl > out  # 17GB file size

PDL->random . . . . . . . . . . .    27.211s

$ wc -l out
1000000000