It's an arrayref, it's an hashref, it's a... hashrayref!

hashrayref

use strict;

use Data::Printer;
sub x { \@_ }

my %foo = 'a'..'d';

my $bar  = x(%foo);

$foo{a} = "banana";

p $bar; p %foo;

$bar->[3] = "potato";

p $bar; p %foo;

$bar->[0] = 'different';
$bar->[1] = 'yet the same(ish)';

p $bar; p %foo;