use strict;
use warnings;

my @array = (-10,30,5,0b1011,7,9,8, -01111,-10,1,3,9,-30,5,-100,0,-1,0xFF,-3,30,0b1011,3,2,-300,-0xFF,15);

sub sortie {
	my @sorted;
	my @sortit = @_;
	my @biglist;
	my @uniq;
	my $biggest_so_far  = 0;
	my $smallest_so_far = 0;
	foreach my $num(@sortit) {
		if ($num > $biggest_so_far) {
			$biggest_so_far = $num;
		}
		if ($num < $smallest_so_far) {
			$smallest_so_far = $num;
		}
	}
	@biglist = ($smallest_so_far..$biggest_so_far);

	foreach my $bignum ( @biglist) {
		foreach my $sortnum (@sortit) {
			if ($bignum == $sortnum) {
				push @sorted, $bignum; 
		}
	}

 }
 	print "\@array with  ", scalar @array,   " elements   =  @array\n";
	print "\@sorted with ", scalar @sorted, " elements   =  @sorted\n";
}

sortie(@array);