RosettaCodeData/Task/Unicode-variable-names/Perl/unicode-variable-names-2.pl

use utf8;

BEGIN {
    my $val;
    sub Δ () : lvalue {
        $val;
    }
}

Δ = 1;
Δ++;
print Δ, "\n";