% perl -Mstrict -wle 'my $r = undef; map ++$_, @$r; print $r;'
ARRAY(0x10116180)