#!/usr/bin/perl

sub RandomiseArray {
        my (%b, $c);
        map { do { $c = rand } until(!exists $b{$c}); $b{$c} = $_ } @_;
        return values(%b);
}

my @a = RandomiseArray(1..10);
print "@a\n";