#!/usr/bin/perl

print "<table>\n";
while (<>) {
  chomp;
  my ($B, @similar) = split;
  print "<tr>\n";
  print qq{ <td>$B</td>\n};
  print qq{ <td><img src="$B.jpg" height=200 width=200></td>\n};
  print qq{ <td>\n};
  for (@similar) {
    print qq{   <img src="$_.jpg">\n};
  }
  print qq{ </td>\n};
  print qq{</tr>\n};
}
print "</table>\n";