%b = map{ $_, 1 } @a ;