下の書き方に拘るならこうだが・・・

sub hoge {
　my $huga = shift;
　my %huga = @$huga;
　return keys %huga;
}

指摘の意味が分かればいいんだけど・・・