my @blocks = do { local $/ = "Seite:"; <TXT> };
@shuffled = shuffle(@blocks);
foreach (@shuffled) {
	print TXT1 $_;
}