-printf DATA "%d\n", scalar keys %ids;
-for my $id (keys %ids) {
- printf DATA "%d\n", $id;
-}
-for my $ref (@games) {
- printf DATA "%d %d %d %d %f\n", $ref->{'p1'}, $ref->{'p2'}, $ref->{'maalfor'}, $ref->{'maalmot'}, $ref->{'vekt'};
+ my $tmpnam = POSIX::tmpnam();
+ open DATA, ">", $tmpnam
+ or die "$tmpnam: $!";
+
+ printf DATA "%d\n", scalar keys %$ids;
+ for my $id (keys %$ids) {
+ printf DATA "%d\n", $id;
+ }
+ for my $ref (@$games) {
+ printf DATA "%d %d %d %d %f\n", $ref->{'p1'}, $ref->{'p2'}, $ref->{'maalfor'}, $ref->{'maalmot'}, $ref->{'vekt'};
+ }
+ close DATA;
+
+ return $tmpnam;