my $sth = $dbh->prepare("update new_table set newData=? where newID=?); foreach ( keys %Data ) { execute( $Data{$_}, $_ ); }