my $smallest = (sort {$a <=> $b} @array)[0];