for i in 1 2 3 4 5 6 7 10 11 12 ; do
  perl -lane'print "p'$i'\t$_"' p$i.chr7.miRNA.txt
done