$test  =12;
$test2 =13;
%hash=(
  test  => $test,
  test2 => $test2,
);
foreach $name(qw(test test2))
{
  print "$name $hash{$name}\n";
}