Again, more whitespace preferred here:

    push @{ $vars->{bdays}->{$month} }, {