+open VL, ">.stv.votes" or die $!;
+foreach my $vote (@allvotes) {
+ print VL "----------------------------------------\n";
+ print VL "voter $vote->{Voter}\n";
+ print VL "prefs ". (join " ", @{ $vote->{Prefs} }). "\n";
+ print VL $_, "\n" foreach @{ $vote->{Log} };
+}
+print VL "========================================\n";
+close VL;
+