use Path::Class;

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

##</code><code>##

1
2
3
4

##</code><code>##

use Path::Class;

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

##</code><code>##

IO::File=GLOB(0x6fdf28)

##</code><code>##

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'});

##</code><code>##

1
2
3
4