@ARGV = ($new);
undef $/;
$^I = ".bak";
while (<>)
{
    s/66/$goodrow->{'ClientID'}/g;
    s/0906\s406\s2427/$SIMCard/g; 
    print;
}