いったんhogehogeにパッケージ切り替えてno warnings 'uninitialized';したら？

use hogehoge qw/hoge/;

package hogehoge;
no warnings qw/uninitialized/;

package main;

print hoge('unko');

試してないからわからん。