use List::Util qw(min max);

my @array = qw(1 2 6 3 2 7 9 0);
my $min = min @array;
my $max = max @array;

print "min: $min -> max: $max\n";