#!/usr/bin/perl -Tw

use Tie::File;

use strict;

my @array;
my $file = "./file.txt";
my $line = "this is a really long line of text (sortof)";

tie @array, 'Tie::File', $file;

unshift @array, $line;

untie @array