my $results = {
	'Category A' => 14,
	'Category B' => 21
};

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

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

foreach my $key (keys(%$results)) {
	print qq(<tr><td>$key</td><td><img src="bar.gif" width="$results->{$key}"></td></tr>);
}
print qq(</table>\n);