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

my @returnlist = $command->();