#!/usr/bin/perl -CSDA

use utf8; 
use strict; 
use warnings; 

my %h; 
$h{'Góry'} = 1; 
'Góry' =~ /\A[[:alnum:]]*\z/ or die "error 1"; 
for (keys %h) { 
	$_ =~ /\A[[:alnum:]]*\z/ or die "error 2"; 
}