if( exists $total{"$source$dport"}{'from'} ) {

##</code><code>##

print exists $h{a} ? 1 : 0;;
0

print $h{a}{b} ? 1 : 0;;
0

print exists $h{a} ? 1 : 0;;
1

print $h{a};;
HASH(0x18eee74)