use strict;
use warnings;

my @arr = (1,2,2,3,4,6);

sub do_it_all 
{
    my $biggest  = $_[0];
    my $smallest = $_[0];
    
    foreach my $num (@_) 
    {
        $biggest  = $num if ($num > $biggest); 
        $smallest = $num if ($num < $smallest);
    }
  
    print "\$smallest = $smallest\t\$biggest = $biggest\n";
    my @consecutive = ($smallest..$biggest);
    print "@consecutive\n";        
}

do_it_all(@arr);

__END__
$smallest = 1	$biggest = 6
1 2 3 4 5 6