$var1 = 7;
$var2 = 3;
foreach $number(1..2) {
  print $var${number} . "\n";
}