use Data::Alias qw( alias );

alias my $x = shift;