if (my ($a, $b) = ("$key$val" =~ /(..)(...)/)) {
            $hash2{$a} = $b;
        }