Select Code to Download

my @lList = (1..10);
my ($lPos, $lRand);
...
  $lRand = int(rand($lPos));
  @lList[$lPos, $lRand] = @lList[$lRand, $lPos];
}

my @lList = (1..10);
my ($lPos, $lRand);
...
  $lRand = int(rand($lPos+1));
  @lList[$lPos, $lRand] = @lList[$lRand, $lPos];
}