foreach ($function_hash{$foo} =~ /\$(\w+)/g) {
    $value_hash{$1} = 0;  # default value
}