use strict;
use warnings;

sub min_and_max
{
    my (@numbers);

    @numbers = @_;

    my ($min, $max, @ret1);

    $min = $numbers[0];
    $max = $numbers[0];

    foreach my $i (@numbers)
    {
        if ($i >= $max)
        {
           return push my(@ret1), $i;
        }
    }

    return (@ret1);
}

my (@test_array);
@test_array = (3,6,,7,6,3,10,5,6,2, 10);

my @ret = min_and_max(@test_array);