my $line;
open (FILEHANDLE, ">>$new");

while ($line = <FILEHANDLE>)
{
	$line =~ s/66/$goodrow->{'ClientID'}/g;    
	$line =~ s/0906\s406\s2427/$SIMCard/g; 
}
close FILEHANDLE;