perlのサブルーティン名や変数名に日本語が使えるって知ってたけど。。。。

うん、気持ち悪いですね。

ソース

use strict;
use warnings;
use utf8;

use feature qw( say );
use Encode;

sub ほげ {
    my $ふが = 'ふが';
    say encode_utf8 $ふが;
}

ほげ();

出力

ふが