my ($gg) = split ' ', $g;
my ($hh) = split ' ', $h;