split(/\t/, $_);
        say $out join("\t", (split "\t" )[1,12] ) );