# Same to here then
my @gg = split /\s+/, $g;
my @hh = split /\s+/, $h;
die "Files do not match"
    if $gg[0] != $hh[0] || $gg[1] != $hh[1];