my $a = "a";
my $b = "b";
my $offset = \$b - \$a;
printf "a: %s\nAddress: %p\n", $a, $a;
printf "b: %s\nAddress: %p\n", $b, $b;
printf "Buffer Offset: %d\n", $offset;