#!/usr/bin/perl
use strict;
use warnings;

# Records separated by blank line
$/ = "\n\n";

# Records we've seen before
my %records_seen;

while (my $line = <DATA>) {
   # Get list of key fields for record
   my @key_fields = (split /\s+/, $line)[
      -2, -8, -14, -5, -11, -17
   ];

   # Create composite key for record
   my $key = join("|",@key_fields);

   # Store record if we haven't seen it
   if (! exists $records_seen{$key}) {
      $records_seen{$key} = $line;
   }
}

# Print them in order
for my $key (sort keys %records_seen) {
        print $records_seen{$key};
}
__DATA__
A  83    GLU       A  90    GLU^?
A 163    ARG       A  83    ARG^?
A 222    ARG       A   5    ARG^?

A 229    ALA       A 115    ALA~?
A 257    ALA       A 118    ALA~?
A 328    ASP       A  95    ASP~?

A  83    GLU       A  90    GLU^?
A 163    ARG       A  83    ARG^?
A 222    ARG       A   5    ARG^?

A  83    GLU       B  90    GLU^?
A 163    ARG       B  83    ARG^?
A 222    ARG       B  5     ARG^?