$ perl 1140982.pl
1..1
not ok 1 - Hashref comparison
#   Failed test 'Hashref comparison'
#   at 1140982.pl line 8.
#     Structures begin differing at:
#          $got->{system}{security}{management_ip}{protocol}{entry_1}{snmp_ok} = 'bar'
#     $expected->{system}{security}{management_ip}{protocol}{entry_1}{snmp_ok} = 'foo'
# Looks like you failed 1 test of 1.
$