Select Code to Download

{
   no strict 'subs';        
...
      print $var.$number . "\n";
   }
}

{
   no strict 'subs';        
...
         var.$number     => $somevalue );
   }
}