ヒアドキュメント内で関数は使えないのでしょうか？

$a = 1;

print <<DOC;
元の値：$a
処理後の値：&hoge($a)
DOC

sub hoge{
my $tmp = shift
$tmp++;
return $tmp;
}