for my $i (0 .. length($str)-1) {
       print " " if $i;
       print ord substr $str, $i, 1;
   }
   print "\n";