tie @array, 'Tie::File', "mdfl.txt";

foreach $line (@update) {  
  chomp $line; 		
  @bob = split (/\t/, $line);  
	$dmpiid = $bob[0];
	$new = $bob[1];				
	$ln = "-1";
        {
	foreach $element (@array) {
	  $ln ++;
             if (($element) =~ (/$dmpiid/)) {
	         print "Match found at $ln\n";
	     $slice = $array[$ln];
	     @fred = split (/\t/, $slice);

	       $dmpi = $fred[0];
	       $benum = $fred[1];
	       $os = $fred[2];
	       $name = $fred[3];
	       $lat = $fred[4];
	       $long = $fred[5];
	       $last = $fred[6];
	       $curr = $fred[7]; 

	       $last = $curr;
	       $curr = $new;

$array[$ln] = "$dmpi\t$benum\t$os\t$name\t$lat\t$long\t$last\t$curr";
				next;
				}
			} 
             } 
}
untie @array;