while (...) {
  # these all initialized with undefined value
  my($you, $have, $to, $declare, $your, $variables, $one_by_one, $just_like_this);
}

##</code><code>##

my %hash = map { $_ => '' }
           qw(list of elements you want to initialize);