use utf8;
my $á = 1;
print $á;