my $results = {
	'Category A' => 140,
	'Category B' => 210
};

# Start your HTML here..... Then....

print qq(<table border="0">\n);

foreach my $key (keys(%$results)) {
  print <<"  HTML";
  <br>
  <tr>
    <td>
      $key
    </td>
    <td>
      <img src="http://perlmonks.org/images/bluebox.gif" height=15 width="$results->{$key}">
    </td>
    <td>
      $results->{$key} width units
    </td>
  </tr>
  HTML
}
print "</table>\n";