$p = Project->new_project($id);
  $cursor = $p->get_all_data;

foreach my $row (@$cursor){
	print OUTPUT do{
		local $" = qq{\t};
		qq{$row->[1]\$\$\$\$\n};
		} if defined $row->[1];
}