use strict;
use warnings;
use Data::Dump qw/pp dd/;
use Test::More;
use Test::Deep;


my ($pos1,$pos2)=("a","a");


diag \$pos1,", ",\$pos2;
diag 0+\$pos1,", ",0+\$pos2;
diag pp \$pos1,\$pos2;


is_deeply( \$pos1, \$pos2,"is_deeply");   #should fail

cmp_deeply( \$pos1, \$pos2,"cmp_deeply"); #should fail


done_testing;