my @records;
while(<FILE>) {
  chomp;     
  my @courow = split(/\t/);
  if ($courow[0] eq $courowid) {
    my %coudata;
    @coudata{@coufields} = @courow;
  push @records, \%coudata;
  }  
}

# and further down
for my $ref (@records) {
  my %coudata = %$ref;
  print ul( map { li("$_: $coudata{$_}") } keys %coudata);
  print ("<br>" x 3);
}