my @jpg = split //, $extracted_jpg_string;
my @ref = split //, $base64_image;

for (0 .. ($#jpg > $#ref ? $#jpg : $#ref)){
     print "Images differ: \$ref[$_]: $ref[$_] | \$jpg[$_]: $jpg[$_]\n";
}