Select Code to Download

my $op = shift;
for (qw/your hand is too cold to hold/) {
...
to
Modification of a read-only value attempted at (eval 7) line 1.
hold