Select Code to Download

use strict;
use warnings;
...
    }
}
use Data::Dumper; print Dumper \%result_set;

VinsWorldcom@C:\Users\VinsWorldcom\tmp> test.pl
$VAR1 = {
          '2607:f8b0:4006:803:0:0:0:1010' => 1
        };