use Data::Alias;

my @plural = qw[foo bar baz];
alias my @singular = @plural;

say $singular[1];
$singular[2] = "qux";
say "@plural";
__END__
bar
foo bar qux