NAME Data::Rmap - recursive map, apply a block to a data structure SYNOPSIS $ perl -MData::Rmap -e 'print rmap { $_ } 1, [2,3], \\4, "\n"' 1234 $ perl -MData::Rmap=:all rmap_all { print (ref($_) || "?") ,"\n" } \@array, \%hash, \*glob; # OUTPUT (Note: a GLOB always has a SCALAR, hence the last two items) # ARRAY # HASH # GLOB # SCALAR # ? # Upper-case your leaves in-place $array = [ "a", "b", "c"