my $FILE;
open $FILE, "log.txt" or die $!; # Datei ist anfangs leer !
my @lines = <$FILE>;
close ($FILE);

open my $FILE,'<', "log.txt"; # Datei ist anfangs leer !
my @lines = <$FILE>;
close ($FILE);

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper; # nur für die Testausgabe
use CGI::Carp qw(fatalsToBrowser); # damit Fehler im Browser angezeigt werden

print ("Content-type: text/html\n\n");

my $q = "hallo";
my $doubleVote = -1;

open my $FILE,'<', "log.txt" or die "Cannot open log.txt: $!"; # Datei ist anfangs leer !
my @lines = <$FILE>;
close ($FILE);

print '<pre>', Dumper(\@lines),'</pre>';

foreach my $pair (@lines) {
    if ($pair eq $q) {
        $doubleVote = 1;                               
    }
}

if ($doubleVote == -1) {
        open $FILE, ">>", "log.txt" or die "log.txt: " . $!;
        print $FILE $q;
        close ($FILE) or die "Can't close log.txt: $!";
}

print $doubleVote;