our @arr; my %h; somehow_alias($h{'key'}, @arr); $h{'key'}[0,1] = qw(hello world); print $arr[0], ' ', $arr[1], "\n"; # Desired output: # hello world