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

use utf8;
use v5.10;

sub Δ () : lvalue {
    state $val;
}

Δ = 1;
Δ++;
say Δ;