<?perl
   my $user = 'Erubis';
   my @list = ('<aaa>', 'b&b', '"ccc"');
?>
<p>Hello @{$user}@!</p>
<table>
  <tbody>
    <?perl $i = 0; ?>
    <?perl for $item (@list) { ?>
    <tr bgcolor=@!{++$i % 2 == 0 ? '#FFCCCC' : '#CCCCFF'}@">
      <td>@!{$i}@</td>
      <td>@{$item}@</td>
    </tr>
    <?perl } ?>
  </tbody>
</table>