Select Code to Download

sub get_blogs {
    my ($self, $c, $page) = @_;
...
    }
    [ $blog, scalar (@$replies), $ret ];
}

$blogs = [ # blog list
  [ # first blog
...
    ...
  ],
]; # end of blog list