Perl embedded into Mason 

• loops:

<ul>
% foreach my $item ( qw(Red Green Blue) ) {
    <li><% $item | h %></li>
% }
<ul>

• it looks ugly