cat <(pcat ./ER/BLADDER/gtex.gtex.BLADDER.MD.gz | head -1 | sed 's/\trail_barcode\t/\texternal_id\tstudy\t/') <(pcat ./ER/BLADDER/gtex.gtex.BLADDER.MD.gz | tail -n+2 | perl -ne 'chomp; $f=$_; @f=split(/\t/,$f); $f[2].="\t".uc($f[12]); print join("\t",@f)."\n";') | gzip > ./ER/BLADDER/gtex.gtex.BLADDER.MD.gz.1