my $string =  join "", map chr $_, @ord;
use Data::Dumper;
local $Data::Dumper::Useqq = 1;
print Dumper $string;