"ID"	"Course"
9414	"Nutitional Epidemiology"
9414	"Nutritional assessment"
9414	"Undernutrition in the United States"
1371	"Health Politics and Policy"
1371	"Advanced Health Politics?"
1371	"Introduction to Health Policy & Management"
1371	"Health and Public Policy Seminar"

##</code><code>##

"ID": 9414 
"Dept": "Division of Something" 
"Fax": "5551212" 
"MiddleName": 
"Title": "Professor of Something" 
"LastName": "Black" 
"Suffix": "PhD" 
"Address": "111 1st Street" 
"Email": "abc@acb.com" 
"FirstName": "Gladys" 
"Phone": "5551212" 
"Photo": "Black.jpg"

##</code><code>##

sub getrows {
my $value = param('name');
my %data = ();
my @fields = split(/\t/, <FILE>); 
chomp @fields;
my @records;
while(<FILE>) {
    chomp;     
    my @row = split(/\t/);  
    if ($row[0] eq $value) { 
        my %data; 
        @data{@fields} = @row; 
        push @records, \%data;             
          
    }        
}
close (FILE);

for my $ref (@records){
    my %data = %$ref;
    print ul( map { li("$_: $data{$_}") } keys %data);
      
}
}#end getrows