my ($test1,$test2) = &testsub;
my %test1 = %$test1;
my %test2 = %$test2;