Program Repair Shop

Families of Variables

        $sth = $dbh->prepare("SELECT * FROM info");
        $sth->execute();
        my $sth4 = $dbh->prepare(qq{INSERT INTO Customer_Information 
                        (CustomerNumber, Name, Address1, Address2, 
                         City, State, ZipCode, Email, DefaultPassword)
                      VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?) });
        while (my @data = $sth->fetchrow_array()) {
           $sth4->execute(@data[0,1,2,3,4,6,7,8,15]);
        }

We have eliminated 15 variables here