#! /usr/bin/perl
use List::Util;

my @a=(1..10);
@a=List::Util::shuffle @a;

foreach my $num(@a){
    print "$num\n";
}