my %RECORDxRI_count;
my %EACH_RECORD;

sub build_list {
  my( $RECORD, $RI, $RECORDxRI, $RECORDxRI_count_REF, $EACH_RECORD_REF ) = @_;

  $RECORDxRI_count_REF->{$RECORDxRI}++;
  $EACH_RECORD_REF->{$RECORD} = '';
}

while <DATA> {
  my( $Record54, $Record38 ) = (split /\t/)[54, 38];

  my $RECORD = (split /{/, $Record54)[0];
  $RECORDxRI = $RECORD . ',' . $Record38; 

  build_list( $RECORD, $RI, $RECORDxRI, \%$RECORDxRI_count, \%EACH_RECORD );
}