% stash css=>["proc/cal/cal.css/"];
<section class="title"> <p>Próximos eventos</p></section>
<section class="cal">
  % foreach (@$b) {
  <section class="month flex"> <div class="spacer"></div> 
    <p class="month">
      <%= $_->{fecha} %> 
    </p> 
    <div class="spacer"></div> 
  </section>  
  % foreach my $d( @{ $r->{$_->{id}} } ) {
  <a class="cal" href="event/<%= $d->{eeid} %> ">
    <section class="event flex">
      <article class="data">
        <p class="city"> <%= $d->{ciudad} %></p>
        <p class="date"> <%= $d->{fecha} %></p>
        <p class="place"> <%= $d->{lugar} %></p>
        <p class="dir"> <%= $d->{dir} %></p>
        <p class="name"> <%= $d->{nombre} %></p>
      </article>
      <article class="image">
        <img class="small" src= "proc/cal/img/<%= $d->{imagen_chica} %>"> 
        <article class="more"> ... </article>
      </article>
    </section>
  </a>
  %} }
</section>