my $foo = "example";
foreach my $bar ($foo) {
  # Right now $foo and $bar are the same
}

##</code><code>##

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