Is this what you want?

use strict;
use warnings;

use Data::Dumper;

my @file = (<DATA>);

my @array = @file;
splice @array, 0, 1,'something';
print Dumper \@array;


__DATA__
line 1
line 2
fsefse line 3
line 4 ,...
line 5
line 6>
[download]