>>146　ヽ(`Д´)ﾉ

>>147
ありがとうございます。結局こちらでは、

use encoding "cp932";
use open ":encoding(cp932)";
use open ":std";

と、最後に　use open ":std";　を追加することで対応できました。
確かにencoding、馬鹿ではよく理解できない。。。

>>148
確かにcp932の問題ではなかったですね。失礼しました。
use openを付けたのは、実際の処理の際には、
テキストファイルを読み込む場合が多いので、
その状況も検証したかった、というのが理由です。

>>149
jperl時代のお手軽さに慣れてしまってたので。。。