--- a/check_tlsa	Wed May 11 23:34:19 2016 +0200
+++ b/check_tlsa	Wed May 11 23:41:32 2016 +0200
@@ -196,14 +196,12 @@
     open(my $filehandle, '<', $domainlist);
 
     my $pattern = '^(?<domain>\S*\.[a-z]{2,4}?):{0,1}(?<port>[0-9]*$)';
-    my %domain2check;
     while (<$filehandle>) {
         if (/$pattern/ig) {
             $domain = $+{domain};
 
             if ("$+{port}" =~ /^\s*$/) { $port = '443'; }
             else { $port   = $+{port}; }
-            $domain2check{$domain} = $port;
 
             check_tlsa($domain, $port);
         }