for $count (0..52) {
   $sometext =~ s/\Q$array1{$count}/$array2{$count}/g;
  }