use strict;

for my $i (101 .. 200)
{
    my $a = '\\' . $i;
    my $val = eval qq{"$a"} || $@;
    print "$i = $val\n";
}

##</code><code>##

use strict;

my %data;
for my $i (101 .. 200)
{
    my $a = '\\' . $i;
    my $val = eval qq{"$a"} || $@;
    #print "$i = $val\n";
    $data{$i} = $val;
}

use Data::Dumper;

$Data::Dumper::Sortkeys = sub {
    [ sort { $a <=> $b } keys %{+shift} ]
};
$Data::Dumper::Useqq = 1;
print Dumper(\%data);