use strict;
use CGI ":standard";
my @names = ('Foo', 'Bar', 'Moo');

print li([ map "#$_", @names ]);

__END__
<li>#Foo</li> <li>#Bar</li> <li>#Moo</li>