• #Foo
  • #bar
  • #moo
  • #### use CGI::Pretty ":standard"; @names = ('Foo', 'Bar', 'Moo'); my $str = join(" ",@names); $data = li ( div({"class='inforno'"}, "$str"), span({"class='inforno'"}, " Edit user ") ); print "$data\n";