my ($first,$second)=routine();
my %first=%{$first}; my %second=%{$second};