my @array = qw(One Two Five Nine);
  my %check_hash = map {$_ => 1} @array;