... open (IN, "$data") || die "Couldn't get $data page"; my @all = ; close (IN); open (IN2, ">$data.tmp") || die "Couldn't open temporary file"; foreach my $line (@all) { my ($one,$two,$three,$four,$five,$six,$seven) = split "\t",$line; if ($three eq $checkthree) { ($one,$two,$three,$four,$five,$six,$seven) = @line; last; } } rename("$data.tmp", "$data") || die "Couldn't rename file"; print "okay";