...
  my $r = rand($L - $l);
  ...
[download]

This just make possible to sort the same line 2 times, also you are not sure if you will get all the lines!!!!!!!!