foreach my $hash (sort keys %hash1)
            {
                my $flag = test(\$hash1{$hash});
                print(Dumper($flag));
            }