use strict;
use warnings;
my @arr = (1, 2, 3, 4);

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

        my $smallest =  $_[0];
        foreach my $smallnum (@_) {
            if ($smallnum < $smallest) {
                $smallest = $smallnum;
            }
        }
            print "\$smallest = $smallest\t\$biggest = $biggest\n";
            my @unique = ($smallest..$biggest);
        print "@unique\n";
        
}

&do_it_all(@arr);