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