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