#Compile all records under a clients aliases foreach $alias (@aliases) { $query = "SELECT collection_information.[field1], "; $query .= "collection_information.[field2], collection_information.[name] "; $query .= "FROM collection_information WHERE CLIENT=\'" . $alias ."\'"; $sth = $dbh->prepare($query); $sth->execute(); #For each record returned while(my @record = $sth->fetchrow_array) { #Insert the record into the database $query = "INSERT INTO " . $client{'name'} ."_table "; $query .= "([field1],[field2],[name]) VALUES "; $query .= "(\'".$record[0]."\',\'".$record[1]."\',\'".$record[2]."\')"; $dbh->do($query); } $sth->finish(); }