use strict;
use warnings;
use Data::Dump qw/pp dd/;

use feature qw/refaliasing/;
no warnings "experimental::refaliasing";


sub tst {
    (\my %args) = @_;
    pp \%args;
}

tst({a=>1,b=>2});



sub tst2 { return [1..3],[4..7] }

our (@a,@b);

(\@a,\@b) = tst2();

pp \@b;
pp \@a;

##</code><code>##

{ a => 1, b => 2 }
[4 .. 7]
[1, 2, 3]