open (IN, $ARGV[0]);

open (OUT, ">output.txt");
while ($line = <IN>){

    chomp $line;
    @line=split/\t/,$line;
    chomp(@line);
   print OUT $line[1]."\t".$line[2]."\t".$line[2]."\n";
}

close( OUT);