#!/usr/bin/perl


@skuid=("11021","11022","11023");
@name=("mt. eden","dom perignon","veuve cliquot");
@price=("45.99","135.99","79.99");

# put a space after the colon
print "Content-type: text/html\n\n";

print "<table>\n";
print "<tr><th>Sku<th>Name<th>Price\n";
foreach $x (0..(scalar(@skuid)-1))
{
  print "<tr><td>$skuid[$x]<td>$name[$x]<td>$price[$x]\n";
}
print "</table>\n";