my $roster_entry;
my %roster_entries;
while (!eof(ROSTER_FH)) {
	$roster_entry = CGI->new(\*ROSTER_FH);
	my $full_name = $roster_entry->param('last_name') . "," . $roster_entry->param('first_name');
	$roster_entry->param('full_name', $full_name);
	$roster_entries{$full_name} = $roster_entry;
}