Select Code to Download

$ary[0][0]='marge'; $ary[0][1]='phychology'; $ary[0][2]='math';
$ary[1][0]='roy'; # etc...

my $rowid = $q->param('rowid');  # get the value from our CGI.pm objec
+t

# search the first column for the rowid, and store the first match in 
+$row_ref
...
  '<tr><td>rowid</td><td>course1</td><td>course2</td></tr>',
  '<tr>', (map {"<td>$_</td>"} @$row_ref), '</tr>',
  '</table>';