$ perl -e 'use Data::Dump; my %h = map { chr $_ => $_ } 32 .. 126; dd \%h'
{
  " "  => 32,
  "!"  => 33,
  "\"" => 34,
...
  "|"  => 124,
  "}"  => 125,
  "~"  => 126,
}