Select Code to Download

my $aaa = "aáeéiíoóuúoöuü";
open my $fh, '>', 'tmp.txt' or die "Can't open file $!";
my @aaa = split //, $aaa;
print $fh chr( ord($_) - 32 ) for @aaa;