Select Code to Download

  use strict;
  use warnings;
...
  my @random_set = rand_set( set => \@set, size => $#set );  
  $,="\n";  
  print @random_set;