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