my @row = split(/\t/); 
    if ($row[11] ne undef) { 
        my %data; 
        @data{@fields} = @row; 
        push @records, \%data;
        
    }        
}
close (FILE);

foreach my $ref ( @records ) {
    print "<a href = \"http://sph.berkeley.edu/cgi-bin/passtestfac.cgi\?name\=$ref->{'ID'}\">", @{$ref}{qw/LastName/}, ',', ' ', @{$ref}{qw/FirstName/}, "</a>", "<br>";
    }