Ｑ：0〜6の数字をそれぞれ$p1　〜　$p7に代入したい
ただし、$p1　〜　$p7はそれぞれ違う数字になるように代入したい
と思い、こんなコードを考えたのですが