my %map = ( "\t" => '\t' );
my $y = "\t";
print $map{ $y };