Wow, thanks! 1 line instead of this ugly code:

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;
}
[download]

:-)

BTW, it IS meant to shuffle a deck of cards...