my %d = ("foo", "bar"); sub fi { ${$_[0]}[0] = "quux"; } fi([values %d]); print join(" ", %d), $/;
# OUTPUT: foo bar