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

use utf8;

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