if ( ref $tree->{$xfile}->{$rec} eq 'HASH' )
{
    my $x=$tree->{$xfile}->{$rec};
    delete $tree->{$xfile}->{$rec};
    $tree->{$xfile}->{$rec}[0]=($x);
}