my %h = map { $_."" => "$_" } @arr ;