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