#!/usr/bin/perl -w

%annotations = ();
while(<>){
  chomp $_;
  @gff = split(/\t/, $_);
  $gff[3] =~ s/\ //g; $gff[3] =~ s/\t//g;
  $annotations{$gff[3]} = $_;
}


sub numerically { $a <=> $b; }
foreach $start (sort numerically (keys(%annotations))){
    print "$annotations{$start}\n";
}