$ more /home/pritesh/nosort.pl
use warnings;
use strict;

my @arr = (10,10,20,0x47,1,30,45,45);

sub do_it_all {
	my $biggest = shift @_;
	foreach my $num (@_) {
		if ($num > $biggest) {
			$biggest = $num;
		}
	}

		my $smallest = shift @_;
		foreach my $smallnum (@_) {
			if ($smallnum < $smallest) {
				$smallest = $smallnum;
			}
		}

	        my @unique = ($smallest..$biggest);
		print "@unique\n";
		
}

&do_it_all(@arr);