今日は前回perlでxml吐き出しで悩んでいて解決しなくて色々と悩んでいた
ところをうまく出力出来るように頑張ります。
Takaさんとkeyさんに教えていただいた事を踏まえて挑戦！！

xml抽出出来ました！！
本当に僕のイージーミスでした・・・。
use Encode;と記述していて
from_to( $photoDATE[4], 'euc-jp', 'utf8' );
としてたから文字コードが変換されてなかったっす。
use Encode qw/from_to/;が正解でした。
色々と弄っていてuse Encode;となっていただけでした・・・。
本当に皆さんお手数をお掛けしました。
今までjcode.plだったのでまだイマイチJcode.pmに慣れてないです(汗。

keyさんのEncodeをチャンと呼べている？とのレスで
気づきました、今までplainでいけていたのにいけなくなっていたので
Encodeを呼べていると言う固定概念があって見てませんでした・・・。
今後気をつけなければデバッグは自分で合っていると言うところも
チェックをかけないと。

keyさん、Takaさんがテキスト出力したら？とおっしゃってくれてなかったら
頭がローリングしていて原因追求できずにまた放置するところでした。

凄い簡単なミスだったのにこれにどんだけ時間がかかったか。
ありがとでした。