#!/usr/bin/perl
use Tie::File;
use utf8;

tie my @A, 'Tie::File', "blah.txt", recsep => "\r\n", discipline => ':encoding(UTF-8)' or die $!;

$A[3] = 'Hallo';
$A[4] = 'welt';
$A[12] = 'Sehr gut Jürgen';
$A[13] = 'äüöß';
$A[14] = 'Was mache ich falsch?';