$ perl -MData::Rmap -e 'eval { rmap { $_++ } 1 }; print $@;'
$ perl -MData::Rmap -e '       rmap { $_++ } 1 '
Modification of a read-only value attempted at -e line 1.