Hm,

einen Algorithmus habe ich zwar (noch) nicht gefunden, aber ich benutze jetzt

Algorithm::Numerical::Shuffle

Damit mische ich die Liste mit meinen Zeilennummern durch und zähle dann einfach von oben ab (sooft ich will oder bis es nix mehr zu zählen gibt).
Es funktioniert und sieht auch vom Ergebnis her, äh, repräsentativ aus.

Grüße und Danke
AndreasM