print "\t<tr>\n";
if (ref($data) eq 'ARRAY')
{			
	foreach my $array (@$data)
	{			
		foreach my $value (keys %$array)
		{
			print "\t\t<td>$array->{$value}</td>\n";
		}
	}	
}
elsif ref($data) eq 'HASH')
{
	foreach my $value (keys %$data)
	{
		print "\t\t<td>$data->{$value}</td>\n";
	}
}
else
{
	print "\t\t<td>Too Bad Sucka!</td>\n";
}
print "\t</tr>\n";