@age = split("\," , $data{'age'});
($decode_name, $decode_value) = split("=",$decode_pair);

上の二つは正常に作動してるから、
($test_1, $test_2) = split("\.", $pattern[0]);
これも正常に作動すると思ったんだけど…。

しなっかったのよ。
不思議。