http://www.perlmonks.org?node_id=779186

Public Scratchpad

Download, Select Code To D/L

---

Nested map

use strict ;
use warnings ;

use Data::Dump ;

my @blah = ( 1 .. 5 )  ;
my @arr_of_arr = ( \@blah, \@blah ) ;

my @blahblah = map &map_sub, @arr_of_arr ;

dd( \@blahblah ) ;

sub map_sub { 
    my $param = $_   ;
    if( ( ref $param ) eq 'ARRAY' ) { 
    my @tmp = map &map_sub, @{ $param } ;
    return \@tmp ;
    }
    return $param + 1    ;
}
[download]