Select Code to Download

my $l;
my @vals;
...
        delete $pairs{$vals[1]};
    }
}

Query;1;host;www.example.com
Answer;1;ip;1.2.3.4
...
Query;3;host;www.google.com
Answer;2;ip;2.3.4.5
Answer;3;ip;3.4.5.6