urlデコードしたフォーム情報と、openしたテキストファイル（shift-jis）で
文字のマッチングしたいのですが、何をやってもうまくいきません。
どうか助けてください。

　＜例＞
　use CGI;
　use Encode;
　
　my $query = CGI->new;
　foreach ($query->param() ){
　$form{$_}=$query->param($_);
　}
　open (FILE,"<:encoding(shiftjis)","text.txt");
　@aaa = split(//,<AAA>);
　if ($form{bbb} eq $aaa[0]) {
　　print "一致";
　}
　close(FILE);