my $command = sub { \@returnstring = \$d->checklist( text => $text, list => [ @list ] ) };
&$command;