Select Code to Download

use strict;
use warnings;
...

no warnings 'experimental::declared_refs';
my \@arr = [42];

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/auto_ref.pl 
666

Compilation finished at Sat Oct 16 14:45:33