use strict ;
use warnings ;

while(<DATA>) {
	chomp ;
	my @values = split(',', $_) ;
	# print "values = @values\n" ;
	processKey( @values ) ;
}

my $foundKeys = {} ;

sub processKey {
	my $key = $_[0] ;
	my $col2 = $_[1] ;
	my $col3 = $_[2] ;
	my $col4 = $_[3] ;
	my $col5 = $_[4] ;
	my $col6 = $_[5] ;
	
	if ( exists $foundKeys->{ $key } ) {
		# skip
	} else {
		$foundKeys->{ $key } = 1 ;
		print "$key $col2 $col3 $col4 $col5 $col6\n" ;
	}
}

__DATA__
key_683,march,29031990,ABCD_FH,9,9
key_684,march,29031990,ABCD_FH,9,9
key_685,march,29031990,ABCD_FH,9,9
key_686,march,29031990,ABCD_FH,9,9
key_687,march,29031990,ABCD_FH,9,9
key_688,march,29031990,ABCD_FH,9,9
key_689,march,29031990,ABCD_FH,9,9
key_693,march,29031990,ABCD_FH,9,9
key_694,march,29031990,ABCD_FH,9,9
key_683,march,29031990,ABCD_H + ABC_F,8,17
key_684,march,29031990,ABCD_H + ABC_F,8,17
key_685,march,29031990,ABCD_H + ABC_F,8,17
key_686,march,29031990,ABCD_H + ABC_F,8,17
key_687,march,29031990,ABCD_H + ABC_F,8,17
key_688,march,29031990,ABCD_H + ABC_F,8,17
key_689,march,29031990,ABCD_H + ABC_F,8,17
key_690,march,29031990,ABCD_H + ABC_F,8,17
key_691,march,29031990,ABCD_H + ABC_F,8,17
key_692,march,29031990,ABCD_H + ABC_F,8,17
key_693,march,29031990,ABCD_H + ABC_F,8,17
key_694,march,29031990,ABCD_H + ABC_F,8,17
key_695,march,29031990,ABCD_H + ABC_F,8,17
key_696,march,29031990,ABCD_H + ABC_F,8,17
key_697,march,29031990,ABCD_H + ABC_F,8,17
key_698,march,29031990,ABCD_H + ABC_F,8,17
key_699,march,29031990,ABCD_H + ABC_F,8,17
key_683,march,29031990,ABC_H + AB_F,2,19
key_684,march,29031990,ABC_H + AB_F,2,19
key_685,march,29031990,ABC_H + AB_F,2,19
key_686,march,29031990,ABC_H + AB_F,2,19
key_687,march,29031990,ABC_H + AB_F,2,19
key_688,march,29031990,ABC_H + AB_F,2,19
key_689,march,29031990,ABC_H + AB_F,2,19
key_690,march,29031990,ABC_H + AB_F,2,19
key_691,march,29031990,ABC_H + AB_F,2,19
key_692,march,29031990,ABC_H + AB_F,2,19
key_693,march,29031990,ABC_H + AB_F,2,19
key_694,march,29031990,ABC_H + AB_F,2,19
key_695,march,29031990,ABC_H + AB_F,2,19
key_696,march,29031990,ABC_H + AB_F,2,19
key_697,march,29031990,ABC_H + AB_F,2,19
key_698,march,29031990,ABC_H + AB_F,2,19
key_699,march,29031990,ABC_H + AB_F,2,19
key_700,march,29031990,ABC_H + AB_F,2,19
key_701,march,29031990,ABC_H + AB_F,2,19