use Tie::File;
my $newline = "whatever";
{
    tie my @array, 'Tie::File', '/path/to/file.txt';
    unshift @array, $newline;
}