1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11

-
!
 
 
 
 
 
 
 
 
 

#!/usr/bin/perl
 
use strict;
use warnings;
 
use List::Util;
 
my @list = (1..10);
@list = List::Util::shuffle @list;
 
print "@list\n";