Found the problems!

# my $preauth = $data1; (Noticed that I forgot to remove the hash from the beginning of this line).

Got rid of "my" before $preauth in my if ($preauth eq '0'/'1') lines.

Now it is working. :->