my %codes = map {chr($_) => sprintf("%%%x",$_)} (0..255);

print map {"$_ => " . $codes{$_} . "\n"} qw(& / : = ?);