my $sqlstatement = 'select name_arabic from data';
my $sth = $dbh->prepare($sqlstatement);
my @row;
my @cases;
$sth->execute || die "Could not execute MySQL statement: $sqlstatement";
while (@row=$sth->fetchrow_array) { push(@cases, [ @row ]); }
$sth->finish();

for my $i (0..$#cases) {
    my $sqlstatement = 'insert into newdb.names (arabicname) values (?)';
    my $sth = $dbh->prepare($sqlstatement);
    $sth->execute($cases[$i][0]) || die "putsql could not execute MySQL statement: $sqlstatement";
    $sth->finish();    
}