my %bag = map {($_, 1)} @arr;