my $value = param('name');#the value passed from the webpage
my %data = ();
my @fields = split(/\t/, <FILE>); chomp @fields;
my @records;
my %ref; 
while(<FILE>) {
chomp;     
    my @row = split(/\t/); 
    if ($row[0] eq $value) { 
        my %data; 
        @data{@fields} = @row; 
        push @records, \%data; 
    }        
}
close (FILE);
print "<ul>";
foreach my $ref ( @records ) {
    #print $ref->{'FirstName'}, "<br>"; *****i'm using this when there is only one thing to print
    print @{$ref}{qw/FirstName MiddleName LastName}; *****i was told to use this for more than one, but can't make it work.


}
print "</ul>";