my @list_in_html = maplist(
    [
        ( sub { "<li>$_</li>" } ) x ( @list - 1 ),
        sub { qq!<li class="last">$_</li>! },
    ],
    @list
);