#!/usr/bin/perl

use strict;
use warnings;

my $SIZE = 10;
my @a = (0..$SIZE);

for (@a) {
  my $i = int(rand($SIZE+1));
  ($a[$i],$a[$_])=($a[$_],$a[$i])
}

print "$_\n" for @a;