perl快速去除数组中NA和非数值的元素

在处理生信数据时，通常会出现NA的值，但是在取最值时，就需要排除非数值的值，遇到这种情况，通常我会结合grep使用。

use List::Util qw/max
  min/;

my @arr = ( 1, 2, 3, 4, "NA", 5, "NA", 6, 7, 8 );
my @value = grep ( /\d+/, @arr );
my $min_value = min @value;
my $max_value = max @value;
print "min_value\t$min_value\n";
print "max_value\t$max_value\n";