for ( my $notes = My::Dashboard::Note->list,
      my $note = $notes->first;
      $note;
      $note = $notes->next )
{
    print $note->headline,
          $note->created,
          $note->body;
}