my %p;
@p{ qw( eyes hair etc ) } = ( undef ) x 3;