my @row = map $_->value, @$arr;

##</code><code>##

for my $arr ( @results ) {
  ...
  my @row = map val( $_ ), @$arr;
  ...
}

sub val {
  my $o = shift;
  if ( defined $o ) {
    my $v = $o->value;
    return $v if defined $v and $v ne 'NA';
  }
  return;
}

##</code><code>##

sub foo {
  if ( $_[ 0 ] % 3 } {
    return $_[ 0 ];  # argument divisible by 3
  }
  return;
}

print join( ':', map foo( $_ ), 1..5 ), "\n";
__END__
1:2:4:5

##</code><code>##

print join( ':', map scalar foo( $_ ), 1..5 ), "\n";
__END__
1:2::4:5

##</code><code>##

print join( ' ', grep sub { wantarray ? 0 : 1 }, 1..3 ), "\n";
__END__
1 2 3