my $ref = \1;

my @array = unpack("c*",$ref);
print join ':', map {chr} @array;
print "\n$ref\n";