【Perl 】初心者コーナーPart5

メールアドレスをsendmailのBccに入れたいのですが入ってくれません。
$HOGE{$in{'hoge'}}に値が入っていることは確認できています。

%HOGE = (
'A','[email protected]',
'B','[email protected]',
);

open(OUT,"| $sendmail -t");
print OUT "To: $mailto\n";
print OUT "From: $mailfrom\n";
print OUT "Bcc: $HOGE{$in{'hoge'}}\n";
print OUT "\n";

途中で、
$mailbcc = $HOGE{$in{'hoge'}};
として
print OUT "Bcc: $mailbcc\n";
のようにしてもダメです。何がいけないんでしょう?

ちなみに、メールはBcc以外ちゃんと届きます。