my %verb = (
        'Bog' => 'Move',
        'Bris' => 'Break',
        'Buail' => 'Strike',
);

print $h->center
(
  $h->table
  (
    $h->Tr
    (
      $h->td
      (
        "Top"
      )
    ),

    map
    {
      $h->Tr
      (
        $h->td
        (
          $verb{$_}
        )
      )
    }keys %verb,

    $h->Tr
    (
      $h->td
      (
        'Bottom'
      )
    )
  )
);


##</code><code>##


<center>
<table>

<tr><td>Top</td></tr> 
<tr><td>Strike</td></tr> 
<tr><td>Break</td></tr> 
<tr><td>Move</td></tr> 
<tr><td></tr>

</table>
</center>