use Tie::File;

my $file = '/pfad/zu/datei';
tie my @array,'Tie::File',$file or die $!;
$array[0] = "neue erste Zeile\n";
untie @array;