# create Array of Hashes
sub get_roots {
        my @root_loop;
        open(ROOTS, "roots3");
        foreach (<ROOTS>) {
                chomp;
                my ($code, $ip, $country) = /(.*)\t(.*)\t(.*)/;
                my %roots_row = (
                        code => $code,
                        ip_addy => $ip,
                        country => $country
                );
                push(@root_loop, \%roots_row);
        }
        return \@root_loop;
}