use strict;
  use warnings;
  use Data::Random qw(:all);
   
  my @set = (1..200);  
  my @random_set = rand_set( set => \@set, size => $#set );  
  $,="\n";  
  print @random_set;