my $z = long 2 * random(3,6); print $z->uniqvec;