$ perl -E '
    use strict;
    use warnings;
    use feature qw{refaliasing declared_refs};
    no warnings qw{experimental::refaliasing experimental::declared_refs};
    my ($sc, @ar) = qw{qwert asdfg zxcvb};
    my \$scalar = \$sc;
    my \@array = \@ar;
    say $scalar;
    say "@array";
'
qwert
asdfg zxcvb