#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @original = 1 .. 1000;
# print Dumper \@array;

my @array;
push @array, splice(@original, rand @original, 1) for (1 .. 100 );
print Dumper \@array;

__END__

$VAR1 = [
          848,
          909,
          62,
          .
          .
          .
          etc