my %pairs = ();
foreach my $tag_sequence (@sequences) {
  push(@{$pairs}{$tag_sequence}, $sentence);
}