#load the data...
while(<FILE>){
	chomp;
	@result = split (/\|/);
	my @rec = ({LastName=>$result[1], FirstName=>$result[2], TimeIN=>$result[3], TimeOUT=>$result[4]});
	$thisrecord = \@rec;
	push @{$ID{$result[0]}},$thisrecord;
}
close(FILE);

#print the data
foreach $key(sort keys %ID){
	print "$key\n";
	foreach (@{$ID{$key}}){
		print "$_->{gender}\n";
	}
}