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