Select Code to Download

use strict;

...
    my $val = eval qq{"$a"} || $@;
    print "$i = $val\n";
}

use strict;

...
};
$Data::Dumper::Useqq = 1;
print Dumper(\%data);