foreach my $var_name (qw(foo bar baz)) {
  $hash{$var_name} = eval "\$$var_name";
}