Select Code to Download

use warnings;
use strict;
...
# double-check that all values are equal to keys
use Test::More tests=>32;
is $_, $hash{$_}, qq{"$_"} for values %hash;

use Data::Dump;
my $var = '"T::c"';
dd $var;               # $var eq "\"T::c\""
$var =~ s/^"(.*)"$/$1/;
dd $var;               # $var eq "T::c"