There are a number of ways of speeding this script up and I'm sure most if not all of them will be in Perl Monks replies in past postings. As you stand you can prepare those statements once and just use execute with parameters in your loop. You can disable AutoCommit and commit at the end. You might find reading multiple lines and using execute_array a little faster but I doubt much with DBD::ODBC as it does not have its own execute_array. You can use MS SQL Server bulk insert command instead. There are probably a load of other things you can do.