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