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

my $fn = $ARGV[0];
open(FH, "$fn") || die("cannot open:$!");


{
     my $geneName = "";     

while(<FH>)
 {
       if($_ =~ /\A(\S+)\t(\S+)\t(\d+)\t(\d+)\t(\S)\s+$/)
       {
             print "\n$_ $geneName";
       }
       if($_ =~ /\A(\S+)\t(\S+)\t(\d+)\t(\d+)\t(\S)\s+(\S+)\s+(\S+)\s+/)
       {
           $geneName = $6;  
       }
 }
   
}