#my ($linenr) = @_;
my $line=shift;
$$line[0]=$_[1];