my $x = shift;

##</code><code>##

use experimental qw( refaliasing declared_refs );

my \$x = \shift;

##</code><code>##

use Data::Alias qw( alias );

alias my $x = shift;

##</code><code>##

our $x; local *x = \shift;