Simple code snippet for printing out ASCII table:

for $chr (0..255) {
  print "$chr\t".chr($chr)."\n";
}