@c=(2..99);@c=map{splice@c,rand(@c),1}@c;