my %foo;
$foo{set1} = {a=>'beta', 'c'=>'gamma'};
add_set(\%foo, "set2", 'beta','gamma');
add_set(\%foo, "set3", 'moo', 'cow');
print join("\n", keys %foo);