my @list;
open (FH, $file) or die $!;
@list[2] = <FH>;
print <FH>;
close FH;