Help for this page
use Scalar::Util qw(readonly);; ... sub foo { $_[0] .= 'FOO'; }
A A is readonly bar is readonly