use Data::Alias qw( alias );

alias my @arr = ( my $one, my $two, my $three );