gawk  '/>/ {$0=substr($0,2); sl[$1]+=1} \
       END {for (i in sl) \
       {if (sl[i]>1) printf "WARNING. Non unique id %s\n",i}}' \
       mysequences.fasta