$array_size = <STDIN>;
chomp ($array_size);

#DEFINE NUMBER RANGE
my $range = $array_size;

open (DATASET, '>dataset.dat');

for ($count = 1; $count <= $array_size; $count++) {
 	my $random_number = int(rand($range));
	print DATASET $random_number;
	if($count != $array_size){
		print DATASET "\n";
	}
}
close (DATASET);

#READ NUMBERS INTO AN ARRAY
open (DATASET, '<dataset.dat');
my @numbers = <DATASET>;
close (DATASET);

my @sorted_numbers = sort { $a <=> $b } @numbers;