if (ref $refToHash->{$a} eq 'HASH') 
{
    foreach $b (keys %{$refToHash->{$a}})
    {
        $refToHash->{$b} = $refToHash->{$a}->{$b};
    }
}
delete($refToHash->{$a});