If memmory isn't an issue, my dict file is only 880kb:

my @file = <$fh>;
print $file[int rand $#file];
[download]