my %source;
my %action;
my ($source, $action) = qw(test_source test_action);
$source{$source} = { $action{$action}++ }; 
$source{$source} = { $action{$action}++ };