print "\nB:Acct:    ",\%Account,"\t",\$Account{"0"},"\t",\$Account{"1"},"\t",\$Account{"10"},"\n";
 { my %TAccount = (); keys( %TAccount ) = $i;
   foreach my $key ( keys %{ $Account{$i} } )
     {  $TAccount{$key} = $Account{$i}{$key}; }
print "A:TAcct1:  ",\%TAccount,"\t",\$TAccount{"0"},"\t",\$TAccount{"1"},"\t",\$TAccount{"10"},"\n";
 	
print "\nB:Acct:    ",\%Account,"\t",\$Account{"0"},"\t",\$Account{"1"},"\t",\$Account{"10"},"\n";
{  my %TAccount = %{ $Account{"$i"} };
print "A:TAcct2:  ",\%TAccount,"\t",\$TAccount{"0"},"\t",\$TAccount{"1"},"\t",\$TAccount{"10"},"\n";