while ( my ($name, $stime, $etime, $unid, $loc, $desc) = $sth->fetchrow_array() ) {
    my ($start, $end) = oracle_to_datetime($stime, $etime);
    push @event_list, {
          start => $start, 
          end => $end,
          summary => $name,
          location => $loc,
          description => $desc,
          uid => $unid,
        };
}

##</code><code>##

$self->render(json => \@event_list);