$n=<>; @a=<>; @r=0..$n-1; hoge:for(0..9999){ @r=sort{.5<=>rand}@r; for$j(0..$n-1){ $a[$j]!=$r[$j] or next hoge; } for$j(0..$n-1){ print$r[$j],$/; } exit; } print -1;