Hello darkmoon,

Welcome to the Monastery.

Regarding your second question you can use something like that:

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my %some_data = (
    jack => ['999',
         '111',
         '222',
         '333',
         '333',
         '444',
         '555',
         '777'],
    foo => [ '111',
         '222',
         '333',
         '444'],
);

my %other_data = (
    jack => ['999',
         '111',
         '222',
         '333',
         '333',
         '444',
         '555',
         '777'],
    foo => ['111',
        '222',
        '333',
        '444'],
    );

# print Dumper \%other_data;

use Test::More tests => 1;
is_deeply(\%other_data, \%some_data, 'data structures should be the sa
+me');

__END__

$ perl test.pl
1..1
ok 1 - data structures should be the same
[download]

Simple and effective. Hope this helps, BR.