{
   no strict 'subs';		
   foreach $number(1..2) {
      print $var.$number . "\n";
   }
}