Ich würde Tie::File empfehlen und einfach nur aus jedem "Array" einen Wert zufällig rauspicken. Bei großen Dateien schiesst man sich sonst schnell in den Fuss.