Shell Programming and Scripting

YPA124  NV
YPA124  NV
YPA124  V
YAR198  V
YAR198  V
YOB911  V
YOB911  V
YOB911  NV
YOB911  NA

YPA124  NV  2
YPA124  V    1
YAR198  V    2
YOB911  V    2
YOB911  NV  1
YOB911  NA   1

uniq -dc file

uniq -c FILE.txt | awk '{printf "%s %-4s %-s\n",$2,$3,$1}'

YPA124 NV   2   
YPA124 V    1   
YAR198 V    2   
YOB911 V    2   
YOB911 NV   1   
YOB911 NA   1

awk ' { arr[$0]++} END{for (i in arr){print arr[i], i }} ' file > newfile

while(<DATA>){
	chomp;
	my @tmp = split;
	$hash{$tmp[0]}->{$tmp[1]}++;
	$hash{$tmp[0]}->{_SEQ_}=$.
}
foreach my $key(sort {$hash{$a}->{_SEQ_} <=> $hash{$b}->{_SEQ_}} keys %hash){
	my %tmp = %{$hash{$key}};
	foreach my $k( grep {$_ ne "_SEQ_"}  keys %tmp){
		print $key," ",$k," ",$tmp{$k},"\n";
	}
}
__DATA__
YPA124  NV
YPA124  NV
YPA124  V
YAR198  V
YAR198  V
YOB911  V
YOB911  V
YOB911  NV
YOB911  NA