use experimental qw( refaliasing declared_refs );

my \$x = \shift;