U:\>perltidy
my %a;
my $b={'c'=>0,'d'=>0};
if(1)
{
my $b = { 'c' => 0, 'd' => 0 };
        $a{$b->{'c'}}=$b->{'d'}
}
^Z
my %a;
my $b = { 'c' => 0, 'd' => 0 };
if (1) {
    my $b = { 'c' => 0, 'd' => 0 };
    $a{ $b->{ 'c' } } = $b->{ 'd' };
}