no strict 'refs'

Si, por el contrario, lo que se quiere es permitir el uso de referenciado simbólico en un segmento del programa sin renunciar al control que nos da use strict, debemos usar la cláusula no:

lhp@nereida:~/Lperl/src$ cat -n symbol_ref3.pl
 1  #!/usr/bin/perl -w
 2  use strict;
 3
 4  our ($x, $y, $z) = (4, 5, 6);
 5  my $a = "x";
 6  {
 7    no strict 'refs';
 8    $a = <>;
 9    chomp($a);
10    $$a = 10;
11  }
12
13  print "x=$x, y=$y, z=$z\n";
lhp@nereida:~/Lperl/src$ ./symbol_ref3.pl
z
x=4, y=5, z=10