Select Code to Download

use Tie::File;
use Fcntl qw/O_RDWR/;
...
use Tie::File;
open my $fh, '+<:encoding(UTF-8)', $file or die $!;
tie my @a, 'Tie::File', $fh or die $!;