sub traverseHash
{
    my $hRef=shift;
    print ref($hRef);
}