my %sequence;
while (<>) {
  my @line = split;
  my $sequence = ++$sequence{$line[0]};
  print "@line $sequence\n";
}