modification of a read-only value

[Torsten Knorr]

#!/usr/bin/perl -w
#*** readonly.pl ***#
#-------------------------------------------------
=head
David Alban wrote:
> greetings,
>
> as a fan of the Readonly module, ...

 Do not use map { ... }
 BR Torsten
=cut
#-------------------------------------------------
 use warnings;
 use strict;
 use Data::Dumper;
 use Readonly;
#-------------------------------------------------
 $Data::Dumper::Useqq  = 1;
 Readonly::Scalar my $a => chr hex "af";
 Readonly::Scalar my $b => chr hex "0a";
 Readonly::Scalar my $c => chr hex "7f";
 print ql_v1($a, $b, $c);
#-------------------------------------------------
 sub ql_v1 { join ", ", Dumper @_ }
#-------------------------------------------------