Select Code to Download

use strict;
use warnings;
...
push( @blah, $lines[ $#lines - splice( @range, int rand @range, 1 ) ] 
+)
  for @range;
print $#blah . $/;

for ( @range ) {
   push( @blah, $lines[ $#lines - splice( @range, int rand @range, 1 )
+ ] )
}