my %p;
  $p{$_} = undef for qw(eyes hair etc);