foreach my $i (qw(foo1 foo2 foo3 ... foon))
{
  $hash{$i} = $$i;
}