Select Code to Download

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

for my $arr ( @results ) {
  ...
...
  }
  return;
}

sub foo {
  if ( $_[ 0 ] % 3 } {
...
print join( ':', map foo( $_ ), 1..5 ), "\n";
__END__
1:2:4:5

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

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