変数名を変数で

例えば

$val1 = 1;
$val2 = 2;
$val3 = 3;
$val4 = 4;
$val5 = 5;
:
:
$val100 = 100;

をリストでまとめて処理したい

foreach (1..100) {
  print ${"val".$_}, "\n";
}

(ま、そもそもコードの書き方が悪い気がしないまでもない)