use Path::Class;

my $filename = "data.txt";
my %hash = ( 'handle' => file($filename)->open('<:encoding(UTF-8)') );
while(readline($hash{'handle'})) {
	chomp($_);
	print $_,"\n";
}
close($hash{'handle'});