#!/usr/bin/perl

use strict;



open (GFF,"<tblastx2.gff");

my %pair;

while(<GFF>){
    my @entries = split;

    $entries[10] =~ s/;//;
    $entries[12] =~ s/;//;

    my $aln_length = $entries[12] - $entries[10] + 1;
    $pair{$entries[0]}{$entries[8]} = $aln_length;
	
    print $entries[0]," ",$entries[8]," ",$pair{$entries[0]}{$entries[8]},"\n";

}