tie @fastafile,'Tie::File',recsep=>"\n>",autochomp=>1;