#!/usr/bin/perl

my @arr = ();
my $counter = 1;
my $range;

for($i=0; $i<$range; $i++) {
    while(1) {
        $rand = int(rand($range));
        if (grep(/^$rand$/, @arr) == 0) {
            print "$rand\n";
            push @arr, $rand;
            $counter++;
            last;
        }
    }
}