foreach $prise (@cartes)
{
  $xmel = int (rand(9999));
  $cartes[$i++] = $xmel . X . $prise;
}
@cartes= sort @cartes;
$i=0;
foreach $prise (@cartes)

{
  $prise=~s/.*X//;
  $cartes[$i++]=$prise;
}